La clause de la requête est incomplète

Bonjour,
Après bien des modifs, corrections et autres, j'arrive presque à mes fins.
Presque car le DoCmd.RunSQL me renvoie "Erreur 3450. Erreur de syntaxe dans la requête.La clause de la requête est incomplète"

Si quelqu'un peut éclairer ma lanterne...

Dim mabd As Database
Dim mrs As Recordset
Dim mrsG As Recordset

Set mabd = CurrentDb
'creation du recorset
Dim lib As String

Set mrsG = mabd.OpenRecordset("SELECT * from Codes ")
Do Until mrsG.EOF()
lib = mrsG!libellé.Value

DoCmd.CopyObject , lib, acTable, "source"

DoCmd.RunSQL ("INSERT INTO '" & lib & "' ( Fregate ) SELECT Client_Fregate FROM Pot_Oct11 WHERE (((Pot_Oct11.LibA_POTENT1)='" & lib & "')) ;")Je souhaite utiliser la variable lib pour ajouter les enregistrements de la table Pot_Oct dont le libelléA = lib via une requête ajout à la table lib que je viens de créer par le copyobject.
Tout marche sauf cette ligne de code...
mrsG.MoveNext
Loop
'fermeture recorset
mrsG.Close