先找到要改的记录 With itemrs .Edit !UserName = Text2.Text .Update End With
用ADO的CONNECTION 对象执行UPDATE SQL语句?增加ADO2.5引用 dim cn as new adodb.connection dim rs as new adodb.recordset cn.connectonstring=""; cn.open cn.execute("update tablename set field=newvalue where id=cid")
With itemrs
.Edit
!UserName = Text2.Text
.Update
End With
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.connectonstring="";
cn.open
cn.execute("update tablename set field=newvalue where id=cid")