一个小例子，在编程之前，请选择“工程”-“引用”
确定引用“microsoftDAO3.51Objectlibrary”
dimdbasdatabase
dimrsasrecordset

privatesubform1_load()
Setdb=OpenDatabase(App.Path "\TTT.mdb")（）内是你的数据库所在位置
Setrs=db.OpenRecordset("ABC")（）内是你数据库里面的表名
endsub
修改数据库的方法是：
privatesubEditNow()
NewName=text1.text
NewP=text2.text
withrs
.edit
!名字=Lcase(newname)“名字”是你表中的项目，（newname）内是你根据你的代码改变的值
!密码=Lcase(newp)同上
.update
endwith
endsub
建立是用rs.addnew
呵呵，方法就是这样，希望会对菜鸟有帮助！->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!