CurrentProject.Path &  "\"  &  "MyData.MDB" 

APP.Path &  "\"  &  "MyData.MDB" 

Private Const strProvider As String =  "Provider="  & _
     "MSDataShape.1 ;Persist Security Info=False;Mode=ReadWrite;" & _
     "Data Source=" 
Private Const strDataProvider As String =  ";Data Provider=MICROSOFT.JET.OLEDB.4 . 0 "

Public AdoConn As ADODB.Connection
'AdoConn - коннект к твоей базе
'

Public Sub AdoConnect(dbName As String)
   'dbName - Имя твоей базы
   Dim strAccessFile As String
   strAccessFile = strProvider & _
       AppPath &  "\"  & dbName & strDataProvider

   Set AdoConn = New ADODB.Connection
   AdoConn.ConnectionString = strAccessFile
   AdoConn.Open
End Sub