Vil,
Nesta rotina nao teria que ter um EXIT SUB para ele nao entrar no TRATARERRO. Assim
.....
datDistribuidora.Recordset.Seek "=", strBusca
Exit sub
TratarErro:
If datDistribuidora.Recordset.NoMatch Then
.....
Uso esta rotina para fazer usso de uma olhada.
Function LE_ARQUIVO(rst As recordset, procura As String, ByVal chave) As Integer
On Error GoTo erro:
LE_ARQUIVO = False
rst.Seek procura, chave
If rst.NoMatch Then
rst.AddNew
LE_ARQUIVO = True
Else
rst.Edit
End If
Exit Function
erro:
LE_ARQUIVO = True
Resume Next
End Function
Voce usa assim
IF not le_arquivo(rst_cliente,"=",txt_cod_cliente) Then
msgbox "Cliente nao encontrado"...
end if