a ver, esta es "más intuitiva" (realmente hay algo detras, pero no nos compliquemos en este momento)
Cita: sConn = "Driver={SQL Server};SERVER=10.1.1.1; DATABASE=NomBD;UID=User;PWD=password"
Conn.Open sConn
de la otra forma, igual sería:
Cita: sConn = "Provider=sqloledb; Data Source=IP_Del_Equipo; Initial Catalog=ActividadesAna; User Id=alcc; Password=analuisa"
Conn.Open sConn
Pon la IP y no el nombre del equipo por que si no, fuera de la red no lo encontrara el server.
Saludos