SQL Server - Gran problema

Hola, tengo un sql server 2000 y quiero agregar otra bd que está en otro sitio de la red tb en sql. me han enviado esta cadena de conexion, para que tb trabaje via web, pero como puedo hacer lo primero:

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set colSystemEnvVars = WshShell.Environment("System")
QueSQLSERVER = colSystemEnvVars("SQLSERVER")
QueSQLSERVERFO = colSystemEnvVars("SQLSERVERFO")
MM_RRHH_STRING = "PROVIDER=SQLOLEDB.1;DATA SOURCE="&QueSQLSERVER&";UID=xxxxxxxxxxxxxxx;PWD=yyyyyyyyyyyyyyyyyyyyy;DATABASE=zzzzzzzzzzzzzzzzz"
Set BDatos = Server.CreateObject("ADODB.Connection")
BDatos.Open MM_RRHH_STRING