Access - Consulta

Sub ConectarYSeleccionar()

    Dim conn As Object ' Objeto ADODB.Connection

    Dim rs As Object ' Objeto ADODB.Recordset

    Dim strSQL As String ' Consulta SQL

    Dim connectionString As String ' Cadena de conexión

    ' Configura la cadena de conexión (cambia los valores según corresponda)

    connectionString = "Provider=SQLOLEDB;Data Source=NombreServidor;Initial Catalog=NombreBaseDatos;User ID=Usuario;Password=Contraseña;"

    ' Crea un objeto de conexión

    Set conn = CreateObject("ADODB.Connection")

    ' Abre la conexión a la base de datos

    conn.Open connectionString

    ' Consulta SQL

    strSQL = "SELECT * FROM NombreTabla"

    ' Crea un objeto Recordset y ejecuta la consulta

    Set rs = conn.Execute(strSQL)

    ' Recorre los registros y muestra los valores (cambia los campos según corresponda)

    Do While Not rs.EOF

        Debug.Print rs("Campo1") & ", " & rs("Campo2")

        rs.MoveNext

    Loop

    ' Cierra el Recordset y la conexión

    rs.Close

    conn.Close

    ' Libera los objetos

    Set rs = Nothing

    Set conn = Nothing

End Sub