Dim db_mm As Database
Dim rs_mm As Recordset

Set db_mm = OpenDatabase("abc.mdb", False, False, ";pwd=123")
Set rs_mm = db_mm.OpenRecordset("xt")

不知道你为什么不打sp6的补丁，而去打sp5打补丁，
不用使用dao,使用ado,
打了sp6补丁，使用ado,访问Access2003都可以。