Yo lo hago asi:
Código vb:
Ver originalPublic cn As ADODB.Connection
Sub Connect2Access()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & _
"\usuarios.accdb;Persist Security Info=False"
End Sub
Suerte!