Probleme ajout colonne vba access

Bonjour,
comment ajouter une colonne en VBA Access grace à une requête SQL

j'ai fait ceci
Sub insertion_matiere()

Dim NOTATION As DAO.Database
Dim JEU_ENREGISTREMENTS As DAO.Recordset
Dim nom_Matiere As String
Dim req1 As String


nom_Matiere = InputBox("Saisir le nom de la matière", "INSERTION MATIERE", "Nom matière ? ")


Set NOTATION = CurrentDb()
Set JEU_ENREGISTREMENTS = NOTATION.OpenRecordset("CLASSE")

While Not JEU_ENREGISTREMENTS.EOF
req1 = "ALTER TABLE eleve ADD & nom_Matiere char(10)"
DoCmd.RunSQL req1
JEU_ENREGISTREMENTS.MoveNext
Wend


JEU_ENREGISTREMENTS.Update

NOTATION.Close
JEU_ENREGISTREMENTS.Close

End Sub


Ca ne fonctionne pas ca bloque au niveau de DoCmd.RunSQL req1 il y a sois-disant une erreur de syntaxe !