急！在线等待，关于即时更新数据库的问题？

Question

antshome说的很对呀！
例子（data控件）：
Private Sub CmdAddRecord_Click()
With Data1.Recordset
    .MoveLast
    .AddNew
    .Fields("地址") = "zasa"
    .Update
End WithData1.Refresh
End Sub
Data1.Refresh
End Sub

Answer 1

我用的是ADO控件，数据源连接放在公共模块里
Public Function connectstring() As String
connectstring = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + App.Path + "\sale_system.mdb"
End Function
通过函数调用

Answer 2

谢谢大家，参考大家的意见，我用了下面的方法
mrc.Update
   mrc.Requery
   mrc.Close
搞定了