en declaraciones generales:
Public WithEvents conex As ADODB.Connection
en el Form_Load:
Set conex = New ADODB.Connection
Dim RuTa As String
RuTa = App.Path
With conex
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + RuTa + "\
Base_Datos.mdb;Jet OLEDB:Database Password=" & "
Clave" & ";"
.CursorLocation = adUseClient
.Open
End With