cadena de texto

[josetgar]

Hola aquí estoy de nuevo. El algoritmo que uso es:

Private Sub Buscar_Click()
Dim Buscado As String, Criterio As String
Buscado = InputBox("¿Qué nombre quieres buscar?")
If Buscado = "" Then Exit Sub
Criterio = "Nombre Like 'Buscado & *'" AQUÍ ES DONDE FALLA, ME GUSTARÍA QUE BUSCASE LA UN NOMBRE PONIENDO LA LETRA O LETRAS INICIALES.
' Buscar desde el siguiente registro a la posición actual
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
' Buscar desde el principio
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub

Espero que podais ayudarme.

Muchas Gracias.

Un saludo.