Probleme d'affichage msgbox

Bonjour,

Je développe une application de gestion sous access et j'ai le message d'erreur suivant lorsque je veux afficher un message d'avertissement avec choix oui - non :

'incompatibilité de type'

Voici le code de mon évènement :

Dim dialogue

'Si on clique sur sortie et que l'on a pas enregistré de lignes de commandes
If Ligne_Commande.Visible = False And num_com.Value <> "" And date_com.Value <> "" And id_fourn_com.Value <> "" Then
'Message de mise ne garde demandant la sauvegarde des données
dialogue = MsgBox("Voulez vous enregistrer la commande n° " & Me.num_com, " sans lignes de commande ?", vbExclamation + vbYesNo, "Enregistrer commande n° " & Me.num_com)
'Si oui
If dialogue = 6 Then

MsgBox "Commande n° " & Me.num_com, " enregistrée", vbInformation, "Succès"
'on ferme le formulaire car il est enregistré automatiquement
DoCmd.Close
'sinon on supprime les données et on ferme le formulaire afin de ne pas garder l'enregistrement en cours
Else

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

DoCmd.Close

End If

'Si on clique sur sortie mais que l'on a pas rempli tout les champs
Else

'on ferme simplement le formulaire
DoCmd.Close

End If