Visual Basic - boton de busqueda en vb

Estoy haciendo un boton para buscar un registro q el usuario introduzca en un textbox utilizo esta sentencia pero no funciona.¿alguien sabe q esta mal?

Dim buscar As String
buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre like '*" & buscar & "*'"

Tdni.Text = rs!dni

Primero que nada que base de datos utilizas

Es unna base de datos acces,ya he hecho la conexion y una select normal y funciona,pero esta con una variable no hay manera.
Gracias por tu ayuda.

Escribeme la conexion y el select normal que haces y como lo muestras

Private Sub Form_Load()

sarchivobase = App.Path & "\" & "devoluciones.mdb"
conec.Provider = "Microsoft.Jet.OLEDB.4.0"
conec.CursorLocation = adUseServer
conec.ConnectionString = sarchivobase
conec.Mode = adModeReadWrite conec.Open ' abro la conexion
rs.ActiveConnection = conec

end sub

Private Sub Command1_Click()
Dim buscar As String
buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre='MARQUEZ FERNANDEZ DAVID'"



'rs.Source = "select * from contratante where Nombre like '*" & buscar & "*'" ' esta no funciona

Ttelefono.Text = rs!dni ' pongo en el text1 el valor del campo nombre

If rs.BOF = True Then
MsgBox "vacio"
End If

End Sub

Ok alberto intenta así:

Dim buscar As String

buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre like '%" & buscar & "%'"

rs.Open , con, adOpenStatic, adLockOptimistic

Tdni.Text = rs!dni
rs.Close

Solucionado maquina muchisimas graciasssss
un saludo

Oye zen como puedo hacer para que por ejemplo si yo meto hernandez en el fomulario
me muestre no solo el primer registro que coincida con hernandez sino que cada vez que le de al boton de busqueda pase al siguiente hernandez..

rs.open "select * from contratante where Nombre like '%" & buscar & "%' ", conec,adOpenStatic, adLockOptimistic
Tdni.Text = rs!dni

Ok prueba así:

Dim buscar As String

buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre like '%" & buscar & "%'"

rs.Open , con, adOpenStatic, adLockOptimistic

Tdni.Text = rs!dni
rs.Close

Oye zen como puedo hacer para que por ejemplo si yo meto hernandez en el fomulario
me muestre no solo el primer registro que coincida con hernandez sino que cada vez que le de al boton de busqueda pase al siguiente hernandez..

me da errores con la palabra -rs- y especial mente con esta -con, adOpenStatic, adLockOptimistic- ahi que cambiarlo por algo

Ayuda porfavor.
Gracias

y en vb como seria?