一个小例子，在编程之前，请选择“工程”-“引用”
确定引用“microsoft DAO 3.51 Object library”
dim db as database
dim rs as recordset
private sub form1_load()
Set db = OpenDatabase(App.Path + "/TTT.mdb")'（）内是你的数据库所在位置
Set rs = db.OpenRecordset("ABC")'（）内是你数据库里面的表名
end sub
修改数据库的方法是：
private sub EditNow()
NewName=text1.text
NewP=text2.text
with rs
.edit
!名字=Lcase(newname)'“名字”是你表中的项目，（newname）内是你根据你的代码改变的值
!密码=Lcase(newp)'同上
.update
end with
end sub
建立是用rs.addnew
呵呵，方法就是这样，希望会对菜鸟有帮助！
|
