VB6 Help: Delete Multiple Items

Private Sub deleteid_Click()
Private Sub deleteid_Click()
On Error GoTo deleterror
If txtlinkitem.Text = vbNullString Then
MsgBox "Have you selected I.D. from Catalog?", vbExclamation, "Delete an I.D."
Exit Sub:
End If
If (MsgBox("Are you sure you want to delete this ID Number " & txtlinkitem & " ?", vbYesNo + vbQuestion, "Confirmation") = vbYes) Then
executeQuery "DELETE FROM tableEmployee WHERE IDNumber = '" & txtlinkitem & "';"
MsgBox "ID has been deleted.", vbInformation, "Delete Success"
txtlinkitem.Text = vbNullString
Call refreshList
Else
Call refreshList
End If
Exit Sub:
deleterror:
MsgBox Err.Description, vbCritical, "Error"
Set con = Nothing
Set rs = Nothing
End
End Sub