Conectar access 2007 con Visual Basic 6.0

Private Sub Form_Load()

Dim conexionbd As New ADODB.Connection

Dim ruta As String

'ruta = "D:\Mis imágenes\nuevointento de aredis\BASEDEDATOS\AREDIS4"

ruta = App.Path & "BASEDEDATOS\AREDIS4.MDB"

 esra linea marca error conexionbd.Open "Diver ={microsoft Access Driver (*.mdb)};DBQ=" & ruta

'conexionbd.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & ruta

Dim rslexico As New ADODB.Recordset

rslexico.Open "select *from LEXICO", conexionbd

Do Until rslexico.EOF

MsgBox rslexico.Fields("etquetas")

rslexico.MoveNext

Loop

empresa.Caption = " AREDIS  A " & Format(Date, "LONG DATE")

' declaras las variables y las constantes

Public cnt As New ADODB.Connection

 ' lo que aparece entre comillas lo remplazas por la ruta de tu base de datos

Public Const ruta As String = "C:DB_PRUEBA.mdb"

 ' estableces la ruta de coneccion para acces 2007 utilizas Provider= Microsoft.Jet.OLEDB.12.0

Public Const BDA  As String = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & ruta & ";"

Public rst As New ADODB.Recordset

Public ConsSQL As String

Sub Abrir_Conexion()

 ' arutina para abrir  la base de datos

  cnt.Open BDA

End Sub

Sub Cerrar_Conexion()

' cierras coneccion

  cnt.Close

End Sub

sub consulta ()

 '  abres coneccion

Call Abrir_Conexion

 '  declaras la consulta

ConsSQL = "SELECT * FROM Tu_Tabla WHERE Dato1 = dato2  ""

 '  abres el recorset

   rst.Open ConsSQL, cnt

'  si la consulta la quieres colocar en una hoja de exel con esto colocas los nombres de los campos de tu recorset

        fldCount = rst.Fields.Count

        For iCol = 1 To fldCount

        Cells(7, iCol) = rst.Fields(iCol - 1).Name

        Next

'  con esto colocas el recorset en la hoja de excel

 Cells(8, 1).CopyFromRecordset rst

' cierras el recor set

        rst.Close

' cierras la coneccion

Call Cerrar_Conexion

end sub