Visual Basic - Busqueda con adodc URGENTE

Hola miren nesecito hacer una busqueda de un registro y que luego si lo encuentra lo mande a un textbox, tengo un codigo que baje de esta pagina pero no me hace nada se los mando y espero su respuesta muchas gracias!

Do While Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields(0) = TextBox8.Text Then
TextBox4.Text = Adodc1.Recordset.Fields(1)
Else
MsgBox "Registro no encontrado", vbInformation
End If
Adodc1.Recordset.MoveNext
Loop

Hola

puedes utilizar el metodo Find.

Private Sub Busca()
Dim pos As Variant

pos = Adodc1.Recordset.Bookmark

Adodc1.Recordset.Find "PROGRAMA like '*" & Text1.Text & "*'"

If Adodc1.Recordset.AbsolutePosition < 1 Then
Adodc1.Recordset.Bookmark = pos
MsgBox "no se encontro el dato"
End If

End Sub


Suerte....

me puedes enviar un codigo completo porfavor GRACIAS

Hola Rodolfo

te envio un ejemplo completo a tu mail.

saludos.

Hola Rodolfo. Creo que el error está en la primera línea (Do While Adodc1.Recordset.EOF ), ponlo así (Do While Not Adodc1.Recordset.EOF).