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