VB中 删除按钮 无法实现记录的删除 调试的时候也未报错

[mrhomesick]

图片截图如下 直接跳到了图中所示部分

------------------------------------------------------------------------- 以下是“删除”部分的代码
Private Sub cmdDelete_Click()
Dim myval As String
Adodc1.RecordSource = "select * from tab_tsinfo "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
myval = MsgBox("确定删除记录吗？", , "系统提示")
If myval = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Unload Me
Frm_xqtsinfo.Show
Else
End If
Else
MsgBox "没有可删除的记录", , "系统提示"
End If
Me.Refresh
End Sub