[Access] Erreur 3144 Update

Bonjour !!

J'ai fait un formulaire qui permet la mise à jour d'une table. Ce formulaire possede 9 champs dont 4 sont des listes déroulantes. Les 5 autres sont des champs de texte. Lorsque j'execute mon code VB je reçois une erreur 3144 mais si je vérifie les données, les 5 champs de textes ont été mis à jour mais pas les liste deroulantes...
HELP!!

Private Sub ConfirmerModif_Click()
Dim BD As Database
Dim req As String
Dim Cancel As Integer
Set BD = CurrentDb




req = "update Centre set "
Nom_Centre.SetFocus
req = req & "Nom_Centre =" & "'" & Nom_Centre.Text & "'" & ", "
ModifGroupement.SetFocus
req = req & "Groupement =" & "'" & ModifGroupement.Text & "'" & ", "
ModifStatut.SetFocus
req = req & "Statut =" & "'" & ModifStatut.Text & "'" & ", "
ModifType_Centre.SetFocus
req = req & "Type_Centre =" & "'" & ModifType_Centre.Text & "'" & ", "
Effectif_Total.SetFocus
req = req & "Effectif_Total =" & "'" & Effectif_Total.Text & "'" & ", "
Effectif_Volontaire.SetFocus
req = req & "Effectif_Volontaire =" & "'" & Effectif_Volontaire.Text & "'" & ", "
Effectif_Garde.SetFocus
req = req & "Effectif_Garde =" & "'" & Effectif_Garde.Text & "'" & ", "
Effectif_Abstrainte.SetFocus
req = req & "Effectif_Abstrainte =" & "'" & Effectif_Abstrainte.Text & "'" & ", "
ModifNum_Categorie.SetFocus
req = req & "Num_Categorie =" & "'" & ModifNum_Categorie.Text & "'" & ", "


If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
Else: BD.Execute req
DoCmd.OpenForm ("FormulairePrincipaleConsultationTtLesCentres")
  End If
  DoCmd.Close
DoCmd.OpenForm ("FormulairePrincipaleConsultationTtLesCentres")

End Sub

J'ai deja essayé de remplaC les .Text des liste déroulantes par des .Value ....