nao tem problema, o access suporta comandos SQL...
voce tem que chamar a referencia Microsoft ActiveX Data Object 2.XX.....
Private Sub txtCPF_LostFocus()
dim DB as New ADODB.Connection
Dim rsTemp as New ADODB.Recordset
BD.Open "Provider = {Microsoft Access (*.mdb)}; Data Source=" & app.path & "anco.mdb", 3, 3 'nao lembro bem se é assim mesmo... ajuda ae galera....
sSQL = "SELECT * FROM Tabela WHERE cpf = '" & txtCF & "'"
rsTemp.Open sSQL, BD, 3, 3
if not rsTemp.EOF then
MsgBox "Já existe um cliente com o CPF cadastrado!! Insira outro!"
end if
rsTemp.Close
Set rsTemp = Nothing
End Sub
