Conexion Sybase

[tomchat]

Haber Prueba Este



Option Explicit

Const Usuario As String = "XXXXXXX"
Const Contraseña As String = "XXXXX"

Private WithEvents CONEXION As ADODB.Connection

Private Sub IniciarBDD()
Dim DSN As String
On Error GoTo Err_IniciarBDD

Set CONEXION = New ADODB.Connection
CONEXION.Provider = "MSDASQL.1"
CONEXION.Open "VisualSeg", Usuario, Contraseña
Exit_IniciarBDD:
Exit Sub
Err_IniciarBDD:
frmErrorAdo.SetErrores = CONEXION.Errors
Resume Exit_IniciarBDD
End Sub