这是怎么回事，调试错误？？

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "add2" '点击增加按钮，加载增加窗口
blnAddRY = True
Load add1
add1.Show 1
Case "xiugai2" '点击修改按钮，加载修改窗口
If Adodc1.Recordset.RecordCount > 0 Then
blnAddRY = False
Load add1
add1.Show 1
Else
MsgBox "系统没有要修改的数据！", "提示窗口"
End If
Case "shanchu" '删除DataGrid控件中选择的人事信息
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.delete
Adodc1.Refresh
Else
MsgBox "系统没有要删除的数据！", "提示窗口"
End If
Case "guanbi" '关闭此窗口
main_ygxxgl.Show
jbxx.Hide

End Select
End Sub

检查下，符号两边的数据类型是否匹配

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息