引用DAO3.6
private sub command1_click()
dim dt as database,rs as recordest
set dt = opendatabase("E:\数据库.mdb")
set rs = dt.openrecordest("学生表")
rs.addnew
rs.fields("学号") = text1.text
rs.fields("姓名") = text2.text
rs.fields("性别") = text3.text
rs.update
rs.close
dt.close
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024