horoscope, the following code will work for me as well. You just need to make sure you have a reference set for Microsoft DAO X.X Object Library.
Dim db As Database
Dim rec As Recordset
Set db = OpenDatabase("C:\UsersDB.mdb" _
, False, False, ";pwd=AdmiN")
Set rec = db.OpenRecordset("Users", dbOpenTable)
MsgBox rec.Fields(0).Value
Swi