一個小例子，在編程之前，請選擇“工程”-“引用”
確定引用“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
呵呵，方法就是這樣，希望會對菜鳥有幫助！->
