Ayuda access y vb6.0

¿Cómo quieres conectarte con Ado o con Dao?

con ado

Ejemplo:
Private Sub Form_Load()
'
Text2 = ""
'
' Indicar el path correcto de la base de datos
' ¡Acuérdate de poner el path correcto!
Const sPathBase As String = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' Crear la conexión manualmente
' Usar "Provider=Microsoft.Jet.OLEDB.3.51;" para bases de Access 97
' Usar "Provider=Microsoft.Jet.OLEDB.4.0;" para bases de Access 2000
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
' Indicarle de que tabla vamos a leer los datos
rst. Open "SELECT * FROM Authors", cnn, adOpenDynamic, adLockOptimistic
'
' Asignar los nombres de los campos a las etiquetas
Label1(0).Caption = "Au_ID:"
Label1(1).Caption = "Author:"
Label1(2).Caption = "Year Born:"
'
With ListView1
' El tipo de Listview que queremos es del tipo "reporte"
.View = lvwReport
' Que muestre las líneas de separación entre datos
.GridLines = True
' Que no se puedan modificar los datos del listview
.LabelEdit = lvwManual
' Añadimos las cabeceras
.ColumnHeaders.Add,, "Au_ID", 900
.ColumnHeaders.Add,, "Autor", 2700
.ColumnHeaders.Add,, "Año nacimiento", 1500, lvwColumnRight
End With
'
' Si hay datos, posicionarlo en el primer registro:
cmdMover_Click 0