Ver Mensaje Individual
  #2 (permalink)  
Antiguo 03/10/2006, 16:16
k3n
 
Fecha de Ingreso: marzo-2006
Mensajes: 56
Antigüedad: 19 años, 2 meses
Puntos: 0
A ver; prueba esto:

Dim Conn, user, pswd, sServer, sConnStr
Dim rsc
user = "user"
pswd = "password"
sServer = "Servidor"
sConnStr = "Provider=MSDAORA.1;"&_
"Data Source=" & sServer &_
";User ID="&user&";Password="&pswd&";"
Set Conn = CreateObject("ADODB.Connection")
Conn.Open sConnstr