esta conexion es con ado
Copia esto en el menu de tu aplicacion
SRVSISTEMA = "nombre_de_tu_servidor"
CATSISTEMA = "nombre_base_datos"
UsuarioMed = "nombre_usuario"
PasswordBase = "clave_usuario"
Set ADOConnection = New ADODB.Connection
Set ADOCommand = New ADODB.Command
strConnect = "Provider=SQLOLEDB.2;Persist Security Info=False;Initial Catalog=" & CATSISTEMA & ";Data Source=" & SRVSISTEMA
ADOConnection.Open strConnect, UsuarioMed, PasswordBase, -1
ADOCommand.ActiveConnection = ADOConnection
y declara esto gloval, en un modulo
Public ADOConnection As New ADODB.Connection
Public ADOCommand As New ADODB.Command
Public ADORs As New ADODB.Recordset
Public SRVSISTEMA, CATSISTEMA, UsuarioMed, PasswordBase As String
chao y que te resulte
si tienes algun problema define la libreria en las referencias
El Renegado
