Eis um exemplo:

 

Public Function ConexaoDados() As Connection

base = PstrCamDados
Set dbDados = New ADODB.Connection
With dbDados

    ..CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = base
    .Properties("Jet OLEDB:Database Password") = "password"
    .Open
End With

 

NOTA: PstrCamDados é uma string que indica o caminho para a base de dados.

 

Espero ter ajudado.

 

João Mateus