Visual Basic - find ( busquedas de registros )

¿porque vb6.0 no reconoce el comando find? ¿como puedo hacer para buscar un registro recorriendo toda la base de datos?

Private Sub Command1_Click()
mensaje$ = "Introduzca el Nombre."
'obtiene la cadena que se utilizará en la búsqueda del título
SearchStr$ = InputBox(mensaje$, "Búsqueda del Nombre")
Nombre de la base de datos.Recordset.Index = "nombre de la colunna de la base de datos" 'usa Nombre Clase
Nombre de la base de datos.Recordset.Seek "=", SearchStr$ 'y busca
If Nombre de la base de datos .Recordset.NoMatch Then 'si no encuentra ninguno
Nombre de la base de datos.Recordset.MoveFirst 'va al primer registro.
End If

End Sub