Visual Basic - Busquedas por favor ayuda

Hola :
tengo un problema con un busqueda, lo intente varias veses en corregirlo y no lo puedo solucionar alguien me podria ayudar.?


If Index = 6 Then
Data1.RecordsetType = 0
Data1.Refresh
Data1.Recordset.Index = "Nombre" 'Fue definido en la base de datos pero me da error aca o sea es el primer error si tengo otro error aca aun no se
Rem varMarcador = Data1.Recordset.Bookmark ' Almaceno la posicion actual
b$ = InputBox("Indique el Nombre de Cliente", "Buscar")
'Data1.Recordset.Seek "=", b$ 'Lo anule porque me da un error 524
' Si no encuentra el dato en la base y no se que es
Data1.Recordset.MoveFirst 'Me posiciono en el primer registro
Encontrado = False
While (Not Data1.Recordset.EOF) And (Encontrado = False)
If UCase(Text1.Text) = UCase(Trim(b$)) Then
Encontrado = True
Else
Rem Data1.Recordset.Bookmark = varMarcador
Data1.Recordset.MoveNext
End If
Wend
If Encontrado = True Then
MsgBox "Registro Existente"
Encontrado = False
Else
MsgBox "Registro Inexistente"
End If

Desde ya muchas gracias

Fabian

¿No te sirvió la respuesta anterior, a esta misma pregunta?

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=93&texto=Visual+Basic&n1=444804&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Si no te fue de utilidad, lo hubieras especificado allí.

ES SIERTO LO K DISE EL TOCAPELOTAS
ES EL MASTER DE ESTE FORRO

vaya par de pateticos quikatocamemisbolas y la ivana, aunque al fin y al cabo, son la misma cosa

Ja Ja Ja Ja Ja

ten cuidado pendej3te tocamisbolas--ivan--nuevo, yo soy tu padre