Connecting to a password enabled database using ADODB object....
API Declarations
'MS ACCESS 2000 and set its database password to DEXTER
'Create a module and write this down
public hyper as ADODB.Connection
sub connectme()
on error goto errhandler
set hyper = new ADODB.Connection
'Using a JET 4.0 Provider in an MS Access 2000 database
hyper.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=C:\mydatabse.mdb;Persist Security Info=False;" _
"Database Password=dexter"
msgbox "Connection Established"...
exit sub
errhandler:
msgbox "Connection Error.. " + Err.Description
end sub