Esa cadena solo sirve en si la base de datos esta montada en un dominio, debes crear una que utilice autenticación SQL y no Windows que utilice ID_Usuario y pass intenta con el usuario sa...
Private Function Conectar() as Boolean
On Error GoTo ErrorConexion
If Conexion.State <> adStateOpen Then
Set Conexion = Nothing
Conexion.Open "Provider=sqloledb;" _
& "Data Source=Servidor;" _
& "Initial Catalog=BaseDatos;" _
& "User Id=NombreUsuario;" _
& "Password=Password;"
End If
Conectar = True
Exit Function
ErrorConexion:
Conectar = False
End Function
Como utilizarla
If Conectar then rs.open "SELECT * FROM Tabla", Conexion
If Conectar then Conexion.execute "DROP Tabla"
Dato Curioso, no necesitas ningun tipo de proveedor cliente(No necesitas instalar ninguna herramiena SQL), en la maquina cliente solo que tenca el MDAC instalado
es decir en WinXP no problem.
Otro dato el servidor puede ser:
En una red NombrePC o la direccion IP
En internet mssql.tudominio.com o tambien la direccion IP del servidor.
en mi parecer siempre empiezo de esta manera,
asi este en el mismo equipo que la base de datos, para que despues no me implique tener que modificar codigo si trato de conectarme desde otra PC.
si no te conecta tienes que revisar que el servidor SQL acepte las conexiones remotas. esto se hace en la configuracion del mismo.
Cualquier cosa gritas