Visual Basic - buscar registros

hola, para ver si me ayudan, tengo problema con un bucador simple usando SQL o ADOX y ADO o DAO sin controles (por codigo), tengo una base de datos de access y tengo que recorrer todas las tablas y todos los registros de cada tabla (y en cada tabla hay 4 columnas) o sea tengo dos combox uno en donde estan todas las tablas + uno que dice Todas las tablas y otro combobox que tiene para buscar por todas las columnas o por una en especifica, y dependiendo de las combinaciones si es sola una tabla y buscar en todos las columnas o una sola, y en todas las tablas en todas las columnas y demas, y bueno quiero que cuando encuentre algo (una palabra parecida (uso LIKE)) me ponga las 4 columnas correspondientes al registro en una GRID pero sin enlazar el Grid con los Recordset, por favor ayuda, o muchas suegercias con lo que tengo que hacer con SQL.

quisiera saber como hago para buscar en una base de datos por ejemplo dni al momento de pulsar enter quiero que en mis controles automaticamente me visualice por ejemplo nombres, apellidos, costo,etc
gracias espero una respuesta

bueno puedes usar sentencias SQL son mas adaptables para busqueda, y bueno en realidad he trabajado por hobbie con ellas, pero no soy programador, en realidad soy ingeniero civil, que le mete a la programacion como hobbie

No soy ningun crack pero ahora mismo utilizo sentencias sql , aqui teneis un ejemplo

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim sql As String
Dim nova As Integer
Private Type venta
idventa As Integer
descripcio As String * 30
PvpNeto As Double
Total As Double
End Type

Dim ventes As venta


rs.Open "Venta", cn, addopendynamic, adLockOptimistic

rs.AddNew

rs!idventa = ventes.idventa

sql = "Select DNI from venedor where Nom like " & "'" & Combo1 & "'"
rs1.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText

If Not (rs1.BOF And rs1.EOF) Then
dni = rs1!dni
Else
MsgBox "No se encontraron registros"
End If

rs!dni = dni

rs.Update
rs.Close
rs1.Close