先建个模块，在里面写以下代码PublicFunctiongosql(ByValsqlAsString,msgstringAsString)AsADODB.RecordsetDimcnAsADODB.ConnectionDimrsAsADODB.Recordsetsql=Trim(sql)Setcn=NewADODB.Connectioncn.OpenConnectionStringIfLeft(sql,6)=LCase("insert")OrLeft(sql,6)=LCase("delete")OrLeft(sql,6)=LCase("update")Thencn.Executesqlmsgstring=Left(sql,6)&"操作成功"ElseSetrs=NewADODB.Recordsetrs.Opensql,cn,adOpenKeyset,adLockOptimisticSetgosql=rsmsgstring="查询到"&rs.RecordCount&"条记录"EndIfSetrs=NothingSetcn=NothingEndFunctionPublicFunctionConnectionString()ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DATA.mdb;"‘“DATA.MDB”是数据库文件地址EndFunction然后在窗体上建两个文本A，B。和一个按钮输入以下代码PrivateSubCommand1_Click()DimrsAsADODB.RecordsetDimmsgstringAsStringDimsqlAsStringsql="select*from表whereB='"&Text1.Text&"'"Setrs=gosql(sql,msgstring)rs.AddItemrs("B")=Text1.Textrs("A")=Text2.Textrs.UpdateEndSubPrivateSubText2_Change()OnErrorResumeNextText1.Text=Text2.Text*2EndSub
温馨提示：答案为网友推荐，仅供参考