Hola Flamareoon, buena tarde. Quizá esto te ayude:
Option Explicit 'SE OBLIGA A DECLARAR VARIABLES
'--SE DECLARAN VARIABLES DE TIPO PÚBLICAS COMO CONEXIÓN Y REGISTROS--
Public adoCochinaConexionn As New ADODB.Connection
Public adoMugrosoRecordset As New ADODB.Recordset
'----------------------------------------------------------------------------------------------------
Public Sub Command1_Click()
'--------------------------------SE ESTABLECE LA CONEXIÓN-----------------------
adoCochinaConexion.ConnectionString = "Provider=MSDAORA;Password=ranefi;User ID=jiman;Data Source=database"
'--------------------------------------------------------------------------------------------
'---------------------------SE ABRE LA COCHINA CONEXIÓN------------------------
adoCochinaConexion.Open
'--------------------------------------------------------------------------------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
adoCochinaConexion.Close 'SE CIERRA LA COCHINA CONEXIÓN CON ADO
End Sub
Si necesitas algo más, sólo dilo. Nos vemos.
PD: Hace mucho que agarré este ejemplo de algún lugar, no recuerdo de donde. Pero desde entonces lo he usado asÃ.