我用data控件连接数据库
下面有错,请教一下,谢了.报错:实时错误'13'
     类型不匹配代码:
Dim db As Database
Dim rst As Recordset
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "roll.mdb")
Set rst = db.OpenRecordset("Roll_Bre")    '此句报错.      数据库中的表,名为Roll_Bre
;
;
end sub

解决方案 »

  1.   

    Dim db As Database
    Dim rst As Recordset
    Private Sub Form_Load()
    Set db =dbengin.workspace(0).OpenDatabase(App.Path & "roll.mdb")
    Set rst = db.OpenRecordset("Roll_Bre")    '此句报错.      数据库中的表,名为Roll_Bre
    ;
    ;
    end sub
      

  2.   

    Dim rst As dao.Recordset
      

  3.   

    不用,可能是你得access数据库实在office2000下定义的,应该把它转换成office97下的格式,你可以试一试