Hola. Cuando decis "sin el control" supongo que te referis al DataEnviroment. Antes que nada, aunque resulte contradictorio, tenes que agregar un DataEnviroment. Configura la conexión del Dataenviroment a la base de datos utilizando como proveedor Microsoft Jet 4.0 OLE DB Provider, y luego selecciona la base de datos a la que queres acceder desde la solapa Conexion. Presiona Aceptar
Anda a la ventana de propiedades de la conexion y copia la propiedad Conection Source. Te va a quedar algo asi
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\La ruta\Una base de datos.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
Una vez que tenes copiada la propiedad ConectionSource anda a tu formulario y donde quieras que se realice el enlace a datos pega el siguiente código:
Código:
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\La ruta\Una base de datos.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
CN.Open
RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.ActiveConnection = CN
RS.Open "SELECT * FROM CLIENTES"
Set Dg1.DataSource = RS
Obviamente vas a adaptar tu codigo al que te doy. El ConectionString va a ser el que copiaste desde el DataEnviroment, La sentencia SQL del Open del Recordset RS va a ser la que definas vos y cambiar Dg1 por el nombre de la grilla que tengas.
Bueno. Espero haber sido claro y que te sirva el código.
Saludos. Lucas