[Resolvido]Suprimir o erro de registro não encontrado

utilizo o exemplo abaixo para ter opção de pegar mais de uma informação das colunas no Dlookup,


Private Sub Comando522_Click()

Dim Campos As Variant
Campos = Split(DLookup("[Desenho_ipdp] & ';' & [Atualizar]", "tbl_IPDP", "Desenho_ipdp=" & txtdesenho), ";")

MsgBox "Resultado: " & Campos(0) & " " & Campos(1)

End Sub

gostaria de sugestões para suprimir o erro para registro não encontrado, ou seja quero que minha msgbox retorne Zero ou vazio como resultado

ja usei NZ... on error resume next...

É bem elaborada nuu...

funciona muito bem, vou usar!

obrigado pela força

Acrescentando, com dlookup seria

Código:

Private Sub Comando522_Click()

Dim Campos As Variant

Campos = Nz(DLookup("[Desenho_ipdp] & ';' & [Atualizar]", "tbl_IPDP", "Desenho_ipdp=" & txtdesenho), "")

if Campos = "" then
   MsgBox 0
else
   Campos = Split(Campos, ";")
   MsgBox "Resultado: " & Campos(0) & " " & Campos(1)
End if

End Sub