Visual Basic - Conexion ADO

Que tal un saludo !!!!

Estoy por empezar a programar en visul basic 6, pero no se como hacer la conexion a mi base de datos hecha en access mediante ADO, lo que no se es como hacer la conexion si tener un control ADODC en mi formulario
ya que dentro de mi formulario necesito mostrar informacion de varias tablas.
OJALA ME PUEDAN AYUDAR Y DE ANTEMANO MUCHAS GRACIAS.

Hola nallely, espero te sirva esto.

Set db = OpenDatabase("ruta de tu base de datos\nombre de tu base de datos.mdb", False, False)
Set rs = db.OpenRecordset("nombre de la tabla a utilizar", dbOpenTable)

obvio la base de datos antes hay que convertirla a formato de access 97
hay que meter un control de acceso a datos al formulario y luego eliminarlo para que no aparesca en tu formulario.

Hola, en mi caso trabajo con Ado y lo oculto (invisible) esto quiere decir que esta pero no, tendría que generar una NEW conection en el general declaraciones.
Y los recordset a las tablas deben estar abiertos en el formulario que deseas utilizar.
cuando colocas el ADO sobre el formularo tenes que asignar las propiedades, odbc y el origen de los registros.
Creo que debe haber una forma pero esta a mi me resulta.

Debes colocar la referencia Microsoft ActiveX DataObject 2.1 o superior desde El menu Proyecto - Referencias.

En el modulo o en general declaraciones del formulario
Public bd As New Connection
Public rsclientes As New Recordset
En el Load del formulario
rsclientes.Open "clientes", bd, adOpenKeyset, adLockOptimistic, adCmdTable

Para mostrar informacion de varias tablas te conviene general una instruccion SQL.

Os pongo un ejemplo sencillo de como hacer la conexión y abrir un recordset mediante ADO sin un control Adodc.

Opcional: poneis un control DataGrid en el form para verificar los datos.

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MiBaseDatos.mdb"

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select * From [LaTabla] ", cn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = rs
End Sub

rivate Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MiBaseDatos.mdb"

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select * From [LaTabla] ", cn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = rs
End Sub