以下代码可以代替Data 控件,rs就和Data1.Recordset是一样的Dim rs As DAO.Recordset Dim ss As DAO.Database Set ss = OpenDatabase(App.Path + "\xuanxiu.mdb") '用DAO方式打开数据库,数据库为当前目录下的xuanxiu.mdb文件 Set rs = ss.OpenRecordset("class") '打开表class,这个表存放的被选课程名'需要引用这个 Microsoft ActiveX Data Objects 2.0 Library
Dim ss As DAO.Database
Set ss = OpenDatabase(App.Path + "\xuanxiu.mdb") '用DAO方式打开数据库,数据库为当前目录下的xuanxiu.mdb文件
Set rs = ss.OpenRecordset("class") '打开表class,这个表存放的被选课程名'需要引用这个 Microsoft ActiveX Data Objects 2.0 Library