Debes agregar en el menú Proyecto, Referencias la librería Microsoft ActiveX Data Objects 2. 7 Library.

Declarar las siguientes variables

Dim Sql As String
Dim Conexion As ADODB. Connection
Dim Ejecute As New Command
Dim Archivo As ADODB. Recordset

Y abrirla de la siguiente manera

Sql = "DRIVER={Sql Server};SERVER=Direccion IP del servidor;DATABASE=Nombre de la base de datos;UID=Usuario con acceso a la base;PWD=Password para acceso"
Set Conexion = New ADODB. Connection
Conexion. Open Sql
Set Ejecute = New Command
Ejecute. CommandType = adCmdText

Para leer o grabar datos de esta forma
Ejecute. CommandText = Sql
Set Ejecute. ActiveConnection = Conexion
Execute.ActiveConnection.CursorLocation = adUseClient
Set Archivo = Ejecute. Execute()

El objeto archivo es un recordset y lo puedes recorrer con movenext o previous

Sabes cuando habres una consulta me falto decirte lo siguiente, que la variable Sql debe llenarse con una cadena de esta forma.

Sql = "Select Top 10 * From Turnos.dbo.Motivos_Inasistencias Order By Desc_Motiv;"

Execute. CommandText = Sql
Set Execute. ActiveConnection = Conexion
Execute.ActiveConnection.CursorLocation = adUseClient
Set Archivo = Execute. Execute()

Eso seria para conectarlo con sql, como tengo que hace si la base de datos esta en Acces? En que cambiarian las instrucciones?. Muchas Gracias por su Tiempo!

Mi problema es que no me funciona el modulo de conexion que cree, te lo mando si lo podes revisar y decirme que estoy haciendo mal, porque para en algo le estoy errando, pero lo vi tanto que no veo el error. Gracias por tu ayuda!

Codigo trabajo1

Las declaraciones de esta forma:

Global Venta As Database
Global Area As Workspace
Global Archivo As Recordset

Y abrirlas de esta manera:

Set Area = Workspaces(0)
Set Venta = Area. OpenDatabase(RutaBases & MiBase & ". Mdb")
Set TabPara = VisGes. OpenRecordset("SELECT Codigo,

Y la tabla asi:

Set TabPara = Venta. OpenRecordset("SELECT * FROM Archivo;", dbOpenSnapshot)

Puede Ser dbOpenSnapshot para solo lectura, dbOpenTable para abrirla como lectura/escritura y dbOpenDynaset para forma dinamica escritura/lectura