Visual Basic - busquedas

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
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

Se supone que quieres comparar o buscar el nombre, pero estás comparando el "Text1" contra la variable B$ ( "If UCase(Text1.Text) = UCase(Trim(b$)) Then" ).
¿No debería ser

If UCase( Data1.Recordset!Nombre) = UCase(Trim(b$)) Then
?