Something like this.

lcconnect = [Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=] + '619238'
lcconnect = lcconnect + [;User ID=Admin;Data Source=] + 'g:\products\ppwin\dev32\data\test2.mdb'
lcconnect = lcconnect + [;Mode=Share Deny None]

loconnection = createobject("adodb.connection")
loconnection.ConnectionString = lcconnect
loconnection.Open()

orecordset=createobject("ADODB.recordset")
orecordset.open("personal information",loconnection,1,4,512)

? orecordset.FIELDS.item(1).VALUE

Jon


>Hi All!
>
>I have a MS Access database that is password locked, but I have the password.
>My problem is I need to access one table in the the database to extract data but the program needs to run automatically.
>How can one "OPEN" the MS Acces database?
>
>Thanks
>
>Gary