- 如果是使用ADO(或者ADO控件),请使用"Microsoft.Jet.OLEDB.4.0"- 如果是使用DAO,请使用"Microsoft DAO 3.6 Object Library."- 如果是使用一般的Data-Control,你需要用DAO 3.6打开集合联接到Data控件的Source上,如下: Option Explicit
Private daoDB36 As Database
Private rs As DAO.Recordset
Dim sPath As String Private Sub Form_Load()
sPath = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Customers")
Set Data1.Recordset = rs
End Sub
Private daoDB36 As Database
Private rs As DAO.Recordset
Dim sPath As String Private Sub Form_Load()
sPath = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Customers")
Set Data1.Recordset = rs
End Sub
这都是怎么回事啊?