Visual Basic - codigo de busqueda en bd con vb

estoy trabajando con access y visual basic

Cual es el codigo para que cuando la persona digite el codigo del cliente el buscar si ya existe para que no se digite repetido?

Que tecnologia estas usando DAO o ADO?

Hmmm bueno estoy usando el control data

Bueno eso es DAO, puedes hacerlo de esta manera en el evento LostFocus del TextBox:

Private Sub Text1_LostFocus()
Data1.Recordset.MoveFirst
'Si el campo es tipo string
Data1.Recordset.FindFirst "IDCliente=' " & Trim(Text1.Text) & " ' "
'Si es tipo numerico
'Data1.Recordset.FindFirst "IDCliente=" & Val(Text1.Text)
If Data1.Recordset.NoMatch = False Then
MsgBox "Codigo ya existe, DIGITE OTRO CODIGO"
Text1.SetFocus
End If
End Sub

Mil gracias voy a experimentarlo

Una pregunta. Cuando coloco este codigo me sale
This action was cancelled by an associated object.
Cual sera el problema??
No me permite usar el edit, el update ni nada, que sera??
Gracias por tu ayuda

Te sale ese mensaje porque tus cajas de texto estan enlazados al DataControl, para que te funcione la busqueda y lo demas deja en blanco las propiedades DataSource y DataField de los TextBox

Una pregunta??? Si dejo en blanco las propiedades datasource y datafield me sale el siguiente error NO CURRENT RECORD. POrque entonces como sabe que esta enlazada a una bd y como entonces va a copiarlas alli????

No es necesario que este enlazado , hazlo mediante codigo:

Private Sub Command1_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
Enlazar_Campos
End Sub

Private Sub Command2_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
Enlazar_Campos
End Sub

Sub Enlazar_Campos()
Text1.Text = Data1.Recordset.Fields(0).Value
Text2.Text = Data1.Recordset.Fields(1).Value
End Sub