Abrir un origen de datos con ADO

'Agregar en las referencias

'Microsoft ActiveX Data Objects 2.0 Library

'o alguna version mas reciente

 

'declarar esto en un módulo .bas

 

Private DBConnection As New ADODB.Connection

 

'Abre una conexion segun un origen de datos ODBC
'definido en el panel de control ODBC
'Regresa : 
'True = Exito al conectar
'False = Error al conectar
'

Public Function AbrirConexion(ByVal Conexion As String, _
Optional ByVal Usuario As String = "", _
Optional Password As String = "") As Boolean

On Error GoTo ErrorAbrirConexion

Dim ret As Boolean

ret = True

DBConnection.ConnectionTimeout = 0 'no hay limite de espera de tiempo

If Usuario <> "" Then
    DBConnection.Open Conexion, Usuario, Password
Else
    DBConnection.Open Conexion
End If

GoTo SalirAbrirConexion

ErrorAbrirConexion:
ret = False
MsgBox "AbrirConexion : " & Err & " " & Error$, vbCritical
Resume SalirAbrirConexion

SalirAbrirConexion:
AbrirConexion = ret
Err = 0

End Function