Se è vb6 devi fare una cosa del genere:

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\nomedatabase.mdb"

cn.Open