Listo solo inhabilita as cajas de texto y combos, y mi conexion esta de la siguiente forma:
este esta en un formulario de inicio
Private Sub Form_Load()
db.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=telmex;Initial Catalog=Telmex"
db.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=telmex;Initial Catalog=Telmex"
End Sub
yu este en un modulo de conexiones
Option Explicit
Public Cadena As String 'string que contiene la cadena de conexion
Public iSql As String 'string que contiene la instruccioón SQL
Public Usuario As String 'identifica el nombre de usuario
Public db As New ADODB.Connection 'cadena de conexión de accseso a datos ADO
Public rec As New ADODB.Recordset 'recordset de accseso a datos ADO