如何配置DAO????????????????

Question

工程-》引用-》Microsoft Data Access Object 3.6

Answer 1

Dim Dat1 As Database
Dim rs As Recordset
Set Dat1 = OpenDatabase(App.Path & "\db1.mdb")
Set rs = Dat1.OpenRecordset("学生")
rs.AddNew
rs.Fields("班级") = Text1.Text
rs.Update
rs.Close
Set rs = Nothing
Dat1.Close
Set Dat1 = Nothing

Answer 2

楼上说的很详细了
补充点
较底版本也可以引用
工程-》引用-》Microsoft Data Access Object 3.51Set rs = Dat1.OpenRecordset("学生")
这里也可以写sql语句
如
Set rs = Dat1.OpenRecordset("select * from 学生")