' 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