Buenas,
para hacer la coneccion puedes emplear lo siguiente:
objconn = CREATEOBJECT("ADODB.connection")
strdriver = "SqlOledb"
strserver = "mi_nombre_de_servidor"
strpwd = "mi_contraseña"
struid = "mi_nombre_usuario"
strdatabase = "mi_Base_de_datos"
strstring = "Provider=" + strdriver + ";Persist Security Info=False;User ID="+struid + ";Initial Catalog="+;
strDatabase+ ";Data Source=" + strserver +";Password = " + strpwd
objconn.connectionstring = strstring
objconn.OPEN
eso es todo, asi ya tienes la coneccion abierta,
Saludos