TRY:
必须引用Microsoft Data Access Objects 3.6 Library
Sub DAOOpenJetDatabase()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase _
("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb")
MsgBox "Northwind数据库已打开."
db.....'Your code here...
db.Close
End Sub