Visual Basic - EJECUTAR CONSULTA DE ACCESS DESDE VISUAL BASIC

HOLA!!!

si alguien me puede ayudar con esto????

necesito ejecutar unas consultas de seleccion,actualizacion y creacion de tabla en access pero desde visual basic 6.
osea un codigo de basic que ejecute la consulta que esta en la base de access!!!!

desde ya muchas gracias!!!!

Dim cnn as ADODB.conection
Dim rst as ADODB.recordset

Private sub Conexion_Access()

' Conexion de Visual Basic - Access 2000 - XP
Set cnn = New ADODB.Connection

' Especificacion del nombre del proveedor OLEDB a usar
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"

' Abre la conexion al origen de datos
cnn.Open "C:\Mi_BASE_DATOS.mdb"

End Sub

Private sub Consulta_Simple()

sSQL = "SELECT campo1, campo2 from MiTabla"

Set rst = New ADODB.Recordset
rst.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
Do Until rst.EOF = True

text1.text = "" & rst.Fields("Direccion")
text2.text = "" & rst.Fields("Id_Empresa")

rst.MoveNext
Loop
rst.Close:
Set rst = Nothing

End Sub


Ojala te sirva,
Saludos
Jonathan

Hola:

probe el codigo y no muestra nada????.