Visual Basic - Seek busqueda de coincidencia

Tengo este codigo:

Dim strBusqueda As String
strBusqueda = InputBox$("Nombre a Buscar")
rs.Index = "Nombre"
rs.Seek "=", strBusqueda
If rs.NoMatch Then
MsgBox ("No se encontro")
Else
' funcion que muestra los registros
MostrarRs
End If

Este codigo si me sirve para buscar el problema es que tiene que ser la cadena completa , osea si busco un nombre tengo que colocar NOMBRE Y APELLIDOS , saben como puedo hacerle adaptando ese codigo o usando otro , para que solo busque las primeras coincidencias. ?

se los agradesco mucho VBmasters!
Sergio
www.recursoft.com

Hola,
ahi estas usando un indice para buscar.
lo que queres vos se hace asi:

set rs=db.openrecordset("select * " & _
"from clientes " & _
"where [nombre] like " & strBusqueda "

suerte

men hice esto:

Set rs = BD.OpenRecordset("select *" & "from Credes " _
& "where nombre like " & strBusqueda)


pero me manda error SE ESPERABA 1.

no me jala :<