Dim Lj As ADODB.Connection
Private Sub Form_Load()
Set Lj = New ADODB.Connection
Lj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_Test.mdb.mdb;Persist Security Info=False"
Lj.Open
Ado1.ConnectionString = Lj
Ado1.RecordSource = "select * from tb_stud"
Ado1.Refresh
Set MS1.DataSource = Ado1
End Sub

Private Sub Command1_Click()            '120     插入部份的记录
'我要在表中插入 姓名，月份，工资。
'注意：不能用DATAGRID控件。所以用MS控件
Set Lj = New ADODB.Connection
Lj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\25.mdb;Persist Security Info=False"
Lj.Open
 Lj.Execute ("insert into tb_laborage (员工姓名,月份,基本工资) values('张柏芝','201301','1800') ")

Set MS1.DataSource = Lj.Execute("select * from tb_laborage")
MS1.Refresh
'存在问题: 为什么不能即时刷新出来的?
End Sub

说明：db_Test.mdb为第二册，第3章，第105实例，的数据库文件。
vb开发实战1200例-第二卷\MR\03\105\db_Test.mdb
存在问题：为什么程序执行后，记录能加上去，而MS1控件中确不能实时显示出来？？