****aqui esta la rutina de conexion que estoy usando***
'Función que establece la conexion con el servidor de base de datos
Public Sub Establecer_conexion()
Dim connstring As String
gbl.conexionstatus = "OK"
Set conexion = Nothing
On Error GoTo Manejador_Errores
'Estableciendo la cadena de conexion
connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CELDB;Data Source=AGAMENON"
'Abriendo la conexion
conexion.Open connstring
Exit Sub
'Subrutina de manejo de errores en la conexion
Manejador_Errores:
gbl.conexionstatus = "ERROR"
Exit Sub
End Sub
a ver si detectan mi falla