Io ho usato:

Dim Db As New ADODB.Connection

Db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";Jet OLEDBatabase Password= " & password & ";Persist Security Info=False"

Db.CursorLocation = adUseClient
Db.Open


Riferimenti: ADO 2.7