[Resolvido]Comando eliminar em caixa de Listagem

Private Sub Comando27_Click()
On Error Resume Next
Dim varItem As Variant

    If IsNull(Me.ListMain) Then
        MsgBox " Menu a Eliminar não está selecionado!", vbCritical, "Aviso"
        Exit Sub
    End If

    If Me.List10.ListCount > 0 Then
    MsgBox "Não pode deletar, o menu contem dados...", vbCritical
    Exit Sub
    Else

For Each varItem In ListMain.ItemsSelected
If MsgBox("Eliminar Menu ? " & ListMain.Column(1), vbYesNo + vbQuestion, "Aviso") = vbYes Then
    CurrentDb.Execute "DELETE * FROM MainMenu WHERE MainId =" & ListMain.ItemData(varItem) ' & "'"
    MsgBox "Menu Anulado com Sucesso!", vbOKOnly + vbInformation, "Aviso"
    Else
    Me.ListMain.Selected(varItem) = False
    Exit Sub
    End If
    
Next varItem
Me.ListMain.Requery
End If
End Sub