先引用DAO对象库(工程->引用,选择Microsoft DAO 3.6 Object Library)
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim strDBName As String
Dim strRSName As String
strDBName = App.Path & "\Test.mdb"
strRSName = "ta" 'Test.mdb中的一个表
DBEngine.DefaultType = dbUseJet
Set db = DBEngine.OpenDatabase(strDBName)
Set rs = db.OpenRecordset(strRSName, dbOpenDynaset)
End Sub