[VBA] Probléme ADO

Bonjour,

J'ai quelques difficulté dans un tp sur l'utilisation de la programation orienté objet (ado, adox) sous access

Situation du probléme :

1 Table :
Client (CodeCli, nomCli, adrCli, villeCli)

Travail a faire :

1 réaliser le prog VB qui crée la table client [Fait]
2 réaliser le prog VB qui crée le formulaire de saisie des infos de la table [Fait]
3 réaliser le prog VB qui affiche dans la fenêtre d'excution tous les clients d'une ville quelconque saisie [en cours]
4 écrire une procédure qui rajoute le champ CA (chiffre d'affaire) d'un client et qui initialise ce champs à 100 [en cours]

Mon essaie pour la 3eme partie :

Sub RequetteVille()

Dim MaConnex As ADODB.Connection
Dim MonRS As ADODB.Recordset
Dim MaReq As String

Set MaConnex = New ADODB.Connection
Set MonRS = New ADODB.Recordset

MaReq = "SELECT nomCli, villeCli" & "FROM Client" & "WHERE villeCli = [Choisisez la ville]" & ";"

Debug.Print MaReq

End Sub

Cette procédure affiche : SELECT nomCli, villeCliFROM ClientWHERE villeCli = [Choisisez la ville];
Et non le résultat de cette requette SQL.

Mon essaie pour la 4eme partie :

Sub AjoutCA()

Dim MaConnex As ADODB.Connection
Dim MaTable As ADOX.Table
Dim MaColonne As ADOX.Column
Dim catalogue As ADOX.Catalog

Set MaConnex = CurrentProject.Connection
catalogue.ActiveConnection = MaConnex
Set MaTable = Tables!Client
Set MaTable.ParentCatalog = catalogue

Set MaColonne = New ADOX.Column
With MaColonne
.Name = "CA"
.Type = adVarWChar
.DefinedSize = 24
End With
MaTable.Columns.Append MaColonne

End Sub

Dans cette procédure, je n'arrive a faire correspondre la variable MaTable, à la table Client.

Voila, mon probléme.