vbs 更新数据库错误 请大神帮忙
sub checkOrder(orderid,money,ext)
Set cmm = createobject("adodb.Command")
Set cmm.ActiveConnection=conn
sql1="update AccountsInfo set InsureScore=money where Accounts=ext"
cmm.CommandText=sql1
cmm.Execute
conn.close '关闭连接
Set conn=nothing '释放对象
end sub