数据窗口中的ole控件 pb_工作表与UserForm窗口交互过程中，如何实现数据删除

大家好，我们今天继续讲解VBA数据库解决方案，今日讲解的是第83讲:工作表数据与UserForm窗口的交互：如何实现数据的删除。与数据库数据交互的实现要具备几个特征：可录入，可修改，可查询，可删除，但是在ADO连接工作表时欠缺的是不可以直接删除数据，这也是IMEX的缺憾吧，但要实现工作表数据的删除可以有很多的办法，这讲的内容就是利用ADO来定位这个数据，然后利用工作表删除。

思路，①在UserForm窗口上，设置删除按钮，用于指令的下达。

②在弹出UserForm窗口后，EXCEL文件要隐藏。

③要考虑到按钮之间的作用，在弹出对话框后只能显示"开始"、"显示下一条记录"、"显示最后一条记录"、"退出"按钮。

下面我们首先实现UserForm窗体：在上一讲的基础上我这次增加的是"删除"按钮：

下面看我的代码：

1 从EXCEL窗口进入人机交互窗口：

Sub mynzRecords_83() '将工作表数据变成记录集，并实现利用UserForm窗口进行删除数据

UserForm1.Show

End Sub

代码解释：上述代码完成从EXCEL界面到人机交互UserForm窗体，这时的Application.Caller是8.

2 "删除"按钮响应的代码：Private Sub CommandButton8_Click() '删除

If MsgBox("是否要删除记录？