you will need two lines similar to these...

Set DB = OpenDatabase(App.Path & "\Alert.mdb", False, False, ";PWD=password")

Set RS = DB.OpenRecordset("Errors", dbOpenDynaset)


This should do it..
let me know if you have any further questions.

[email protected]