关于datagrid控件得问题!知道一定请帮忙啊

Question

程序如下：Private Sub Command1_Click()
dim cn as  ADODB.Connection
Set cn = New ADODB.Connection
strins = "insert into  scrb_input values("a") '向access数据库scrb_input表插入一条记录，这里没问题 
cn.Execute strins
Adodc2.Refresh 'datagrid2 控件在设计界面时和adodc2控件绑定，adodc2和access数据
库相连。
'datagrid2.rebind(试过了也没用)
End Sub
问题：每次我执行向数据库得表添加一条记录时，添加后，datagrid2显示得记录总是比数据库表得记录要少一条记录，（即数据库表添加第一条记录后，datagrid2显示得记录没有变化，在添加第二条后显示，datagrid2显示得是添加第一条记录后得数据库得表。此时添加得二条记录在数据库得表里面了）
我希望datagrid能和变化后得数据库保持一致，现不知为何错在那里啊？？
如果采用断开datagrid，重新和adodc2连接的话：具体步骤如下：
  1，添加
  2，datagrid1与adodc2断开连接
  3，adodc2刷新。
  4，datagrid1与adodc2连
详细的代码怎么写能告诉鄙人嘛？？这快真的不熟！
鄙人万分感谢，这个问题好把我搞疯了啊！！现十万火急！望能帮助！

Answer 1

Private Sub Command1_Click()
dim cn as  ADODB.Connection
dim Rs as adodb.recordset
Set cn = New ADODB.Connection
strins = "insert into  scrb_input values("a") 
cn.execute strins
rs.cursor=adclent
rs.open "select * from scrb_input",cn,1,2,cdcmdtext
set datagrid1.datasource=rsend sub