怎么修改数据库的内容？
sdbname = App.Path + "\DiBaoDB.mdb"Sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
conn.Open Sqlstr
Rs.Open "select * from T_apply_rec where Ensure_id='" & ID & "'", conn, 3
If ID = Trim((Rs("Ensure_id"))) And Name = Trim((Rs("Ensure_name"))) Then '如果身份证号码相同，姓名相同
。。。。修改字段代码。。。。
'如果满足上面的条件，我现在想修改数据库字段为Ensure_account 里面的内容，代码怎么写？我是这样写的，
’Rs.Open "update T_apply_rec set Ensure_account='" & Accout & "' where Ensure_id='" & ID & "'", conn, 3可以达到我的要求，但是速度很慢，不知道有什么代码直接修改？？
