为什么表记录的添加与datagrid 显示不同步

一个窗体上有一个文本框，一个“添加” 按钮，一个datagrid 一个ADODC 
我想通过点击“添加” 按钮之后，文本框中的内容作为一个记录添加到ACCESS 表中，
同时要在datagrid中显示出来现在是点击“添加” 按钮之后，文本框中的内容作为一个记录已添加到ACCESS 表中，
但是没有在DATAGRID中 显示出来，当我再次点击“添加” 按钮之后，datagrid 才显
示我前面我作的添加操作也就是说，insert 操作与datagrid 显示不同步
如何解决，谢谢大家 麻烦大家看一下Dim conn As New ADODB.ConnectionPrivate Sub Command1_Click()
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\My Documents\销售工资.mdb"
conn.ConnectionString = constr
conn.Open
Adodc1.ConnectionString = constr
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "各店销售情况"
Set DataGrid1.DataSource = Adodc1
Dim str As String
str = "insert into  各店销售情况(店名) values ('" & Text1.Text & "')"
conn.Execute str
Adodc1.Refresh
DataGrid1.ReBind
conn.Close
End Sub