VB datagrid的增加、删除与显示问题

'“删除”按钮的程序
Private Sub cmdDelete_Click()
strFCode = DataGrid1.Columns(0).CellText(DataGrid1.Book)
strSCode = DataGrid1.Columns(2).CellText(DataGrid1.Book)
strCCode = DataGrid1.Columns(1).CellText(DataGrid1.Book)
sql = "select * from 停时统计 where date='" & strFCode & "' and id='" & strSCode & "' and ycqk='" & strCCode & "'"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.Delete
rs.Update
rs.Close
End Sub
'“增加”按钮的程序
Private Sub Command1_Click()
sql = "select * from 停时统计 order by id"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("date") = Date
rs.Fields("id") = Text7.Text - 1
rs.Fields("ycqk") = Combo1.Text
rs.Fields("date1") = Text1.Text
rs.Fields("time1") = Text2.Text
rs.Fields("date2") = Text3.Text
rs.Fields("time2") = Text4.Text
rs.Update
rs.Close
With Adodc1'刷新数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 停时统计 where date = cdate('" & Text8.Text & "') and ycqk = '" & Combo1.Text & "' order by id"
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub愿意帮忙的高手们，可以的话，留下QQ，我去找你们。谢谢了！
增加数据的时候，我重新刷新Adodc1和DataGrid1了，但在datagrid中显示总是少一条，增加第一条数据的时候什么也没显示，但明明已经增加到数据库里了。增加第二条数据的时候显示出第一条，增加第三条的时候才显示出第一、第二条，但数据库里明明有三条记录了。
删除记录的时候，我也重新刷新Adodc1和DataGrid1了，但数据库里是删除成功了，可是DataGrid1还是存在那条记录，要退出再运行，或者再删除一条记录，才能显示不出第一次删除的那条记录，但第二次删除的那条还是显示出来，数据库里也是删除成功的。
请教高手，就高手们指点一下！谢谢了！
急急急急急急盼高手们的回复，现在领导等着我的程序要用。