vb6 - sstab のいずれかのタブからレコードを削除できない

Question

vb6.0 でフォームを開発し、sstab を配置しました。現在、タブの 1 つから 1 つのレコードを削除しているときに感銘を受けました。以下のコードは、タブに存在するすべてのレコードを一度に削除しようとする私の試みです!!

Private Sub CmdDelete_Click()
 On Error GoTo ErrTrap 
Dim QRY As String 
' If bolNewRec Then Exit Sub 
If MsgBox("Are you sure to delete the current employee details?", vbYesNo) = vbNo Then Exit Sub 
QRY = "Delete from ac_branch_employees where gl_code = '" & GLCode & "' and sl_code = '" & SLCode & "'" 
ConnHalo.Execute QRY 
rsBranchEmp.Requery 
Screen.MousePointer = ccDefault

cmdNew_Click

Exit Sub
ErrTrap: ErrorHandle End Sub

ビジュアルベーシック-6