Hola, le envio la rutina de conexion en VB para SQL Server:
151 Private Sub openConnection()
152
153 Set objCon = WScript.CreateObject("ADODB.Connection")
154
155 ConnectionString = "Provider=sqloledb;"
156 ConnectionString = ConnectionString & "Data Source=" & strSQLServer & ";"
157 ConnectionString = ConnectionString & "Initial Catalog=MSDB;"
158 if boolSecurity = TRUE then
159 ConnectionString = ConnectionString & "Integrated Security=SSPI;"
160 else
161 ConnectionString = ConnectionString & "User Id=" & strUserID & ";"
162 ConnectionString = ConnectionString & "Password=" & strPassword & ";"
163 end if
164
165
166 objCon.Open ConnectionString
167
168 End Sub
