Dim dbO As ADODB.Connection, rsO as adodb.recordset
dbO.Open "Provider=SQLOLEDB.1;Password=" & Password &";Persist Security Info=True;User ID=" & Usuario & ";Initial Catalog=" & BaseDeDatos &";Data Source=" & Servidor
Set rso.ActiveConnection = dbO
rso.open "Select * from LaTablaQueQuierasDeLaDB"