datagrid 显示数据

数据库要更新，你每次删除的时候要更新两次，添加需要一次

删除后datagrid要刷新一下就可以正常了

datagrid 显示数据
我现在可以通过text和combo向数据库添加数据，当添加时，datagrid显示数据会跟着变化，但删除时，datagrid数据不变化，接着删除一个，就会删除上一次删除的 类容。这是怎么回事啊？谢谢各位老师回答
 SQL = "select * from 销售表 where 工作令='" & Text1(0).Text & "'"
 Rs.Open SQL, Cn, 3, 3
 If Rs.EOF = True Then
    c = MsgBox("此工作令已经不存在，请查证后再输入", vbYesNo, "信息提示")
       If c = vbYes Then
         Combo1(0).Text = ""
         Text1(0).Text = ""
         Text1(1).Text = ""
         Text1(2).Text = ""
         Combo1(1).Text = ""
         Text1(3).Text = ""
         Text1(4).Text = ""
         Text1(5).Text = ""
         Text1(6).Text = ""
         Text1(7).Text = ""
         Text1(0).SetFocus
         Rs.Close
         Exit Sub
       Else
         Rs.Close
         Exit Sub
      
       End If
 End If
    Rs.Delete
    Rs.Update

    Adodc1.Recordset.Update
    DataGrid1.Enabled = True
   ' Adodc1.Recordset.AddNew
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
   DataGrid1.Refresh

 Rs.Close
请问需怎样修改，按上面楼主的建议，我都试了，可还是不行。所以不好意思，给你们没结贴，还希望你们能帮忙解答下