consulta de access desde visual basic

[rsiles]

Bueno en realidad eso seria lo que cualquiera haria pero en cuestiones de rendimiento no creo que sea lo optimo, lo que trato de hacer es un cliente servidor con cliente ligero y no pesado.

Gracias por tu interes pero ya resolvi el problema con Ado.

Private Sub Command1_Click()
Dim con As New ADODB.Connection
Dim mrst As New ADODB.Recordset
Dim myComm As New ADODB.Command


Dim proveedor
Dim base
Dim parametro
Dim cadena
Dim permiso

proveedor = "Provider =Microsoft.Jet.OLEDB.4.0;"
base = "Data Source =\\X-tech\\0PRUBAS\qqq.mdb;"
permiso = "Mode=ReadWrite;"
parametro = "Persist Security Info=False"

cadena = proveedor & base & permiso & parametro
con.Open cadena, "Admin"

Set myComm = New ADODB.Command
Set myComm.ActiveConnection = con
myComm.CommandType = adCmdTable
myComm.CommandText = "ListaCiudades"
myComm.Parameters.Append myComm.CreateParameter("@pais", adInteger, adParamInput, 3, 1)
myComm.Execute

mrst.Open myComm, , adOpenStatic, adLockOptimistic
mrst.Requery
Me.TDBGrid2.DataSource = mrst
Me.TDBGrid2.Refresh
End Sub