Vb-Access

Bonjour,

J'ai un problème lors de l'execution d'une requete en VB.
Voici mon code :

Option Compare Database
Public listecb As String
Public codes As Variant
Private Sub Commande21_Click()

listecb = Me.Texte11.Value
codes = Split(listecb, " ")
Dim req As String
For i = 0 To UBound(codes)
DoCmd.SetWarnings False
req = "Insert Into SeanceEleve Values('" & Now & "','" & codes(i) & "');"
DoCmd.RunSQL req
Next i
MsgBox ("Ok")

End Sub

Le problème vient lorsque je veux desactiver les messages d'avertissement.
Lorsqu'ils sont activés tout va bien. Mais quand je veux les desactiver, ma boucle for n'est plus parcourue et seul le premier enregistrement est entré dans la base.