'Dao
dim dtb as Database
Set dtb = OpenDatabase("C:Banco.Mdb", False, False, ";PWD=Senha")
-----------------------------------------------------------------------------
'ADO
Dim ado Conexao ADODB.Connection
Set adoConexao = New ADODB.Connection
adoConexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source = Banco.mdb;Jet OLEDB:Database Password=Senha"