datacombo控件如何即时更新数据？

datacombo控件已经绑定好了数据库，也能正常显示，现在通过一个文本框加入新数据到了数据库，但datacombo显示不了新加入的数据，如何做？
我的代码如下：Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("sname") = Text1.Text
Adodc1.Recordset.Update
Adodc1.Refresh
DataCombo1.ReFill
DataCombo1.Refresh
End SubPrivate Sub Form_Load()
With DataCombo1
    Set .DataSource = Adodc1
    .DataField = "sname"
    Set .RowSource = Adodc1
    .ListField = "sname"
End WithEnd Sub请指教呀！