Я себе сделал так .

Для регистрации mdb:
sDb="C:\Db\a.mdb"
sAttrib = "DBQ=" & sDb
DBEngine.RegisterDatabase "Name", "Microsoft Access Driver (*.mdb)", True, sAttrib
Else



А для подключения через DSN сделал Class module: "ClsDb"

Public Cn As New ADODB.Connection
Public Rst As New ADODB.Recordset
'-----------------------------
Public Sub op_Db(cDSN As String, cRST As String)
On Error GoTo er
Dim Cn1 As New ADODB.Connection
Cn.Open cDSN
If cRST <> "" Then
Rst.CursorType = adOpenKeyset
Rst.LockType = adLockOptimistic
Rst.Source = cRST
Rst.ActiveConnection = Cn
Rst.Open
End If
Exit Sub
er:
MsgBox "RST no found"
End Sub

............................................................................