probleme avec Insert Into

Bonjour
j'ai un petit soucis avec "insert Into",voila le code
requete = "INSERT INTO centre_aéré (Num_ctr,nomenfant_ctr,prenomenfant_ctr,pere_ctr,mere_ctr, " _
        & "emploi_ctr,adresse_ctr,commune_ctr,telfixe_ctr,telport_ctr,caf_ctr,sexe_ctr,datenaiss_ctr,age_ctr) VALUES " _
        & "(" & MaX & ",""" & Text_nomenf & """,""" & Text2 & """," _
        & """" & Text3 & """,""" & Text4 & """,""" & Text8 & """," _
        & """" & Text5 & """,""" & Text7 & """,""" & txt_telfixe & """," _
        & """" & txt_telport & """,""" & Txt_caf & """,""" & comb_sexe & """," _
        & """" & datenais & """,""" & Text1 & """,""" & """ )"
      
  
   Db.Execute requete
  
    requete = ""
et l'erreur c'est :
"le nombre de valeurs de la requete doit coincider avec le nombre de champs de destination"
et il me surligne :
Db.Execute requete
je ne vois pas de ou ça peut venir.
  merci 
petchy 

Apparement tu essaies d'écrire quelque part où il n'y a plus de place

Re
merci à vous de m'aider,mais ça ne fonctionne toujours pas
il me dit :
"erreur de syntaxe dans Insert Into"
petchy

j'ai rempli les tous les champs dans ma table,et quand j'ai lancé mon prog
tous les colonnes de ma listview ne sont pas remplis il n'y en à 5 sur 11 qui sont remplis ?
Sub Rafresh(requete As String)

'-- Requete Sql
Set Rs = New ADODB.Recordset
Rs.Open requete, Db

'-- Nettoie la liste
Frm_Accueil.List.ListItems.Clear

'-- Remplissage de la liste
If Rs.EOF Then
    Frm_Accueil.List.ListItems.Add , , "Aucun Article dans la base de donnée"
    Exit Sub
Else
    Do Until Rs.EOF
       
        Frm_Accueil.List.ListItems.Add , , Rs!nomenfant_ctr, , "po"
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!prenomenfant_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!pere_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!mere_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!caf_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!emploi_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!telfixe_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!telport_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!sexe_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!datenaiss_ctr
        Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , Rs!age_ctr
        Rs.MoveNext
    Loop
End If
Rs.Close
End Sub

petchy

Re
merci,sa fonctionne
petchy