RE:Conectarse a una bd SQL Server
Hola, tal vez esto ayude:
Remplaza Server_Name, DB_Name, User, PWD y Tabla por tus propios parametros.
m_sconnstr = \"provider=SQLOLEDB; server=Server_Name; database=DB_Name; user=User; password=PWD; trusted_connection=yes;\"
dim oconnection1 As ADODB.Connection
dim m_orecordset1 As ADODB.Recordset
ssql = \"select * from tabla\"
Set oconnection1 = New ADODB.Connection
oconnection1.CursorLocation = adUseClient
oconnection1.ConnectionString = m_sconnstr
oconnection1.Open
Set m_orecordset1 = New ADODB.Recordset
m_orecordset1.Open ssql, oconnection1, adOpenStatic, adLockBatchOptimistic, adCmdText
Set m_orecordset1.ActiveConnection = Nothing
oconnection1.Close
Set oconnection1 = Nothing
Esto traera la tabla del \"select\" a tu objeto m_orecordset1.
salu2...