Adodc删除记录出错，求助，急！~

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 货物清单 where 名称='" & Text5.Text & "'"
Adodc1.Refresh
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End Sub
为什么点击Command1后，数据确实删除了，但其对应的DataGrid1表格也清空了呢？只有再重新启动程序后才看到删除数据后的DataGrid1表格。
我想要的效果是点击commend1即删除按钮后，表格中对应删除的那条记录消失，指针向下挪一位。大神们帮帮忙。。。

控件中对应的行写代码删除或重新读取记录刷新控件数据