Incompatibilité de type VBA Access

Bonjour,

Le code suivant me renvoie l'erreur "Incompatibilité de type" sur la ligne en gars.
Apparemment, il n'aime pas ma déclation de rst à la ligne du dessus.
J'ai besoin de l'info pour l'utiliser comme critère d'extraction de mon SQL

Si quelqu'un a une idée.....

Merci d'avance


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

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

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

DoCmd.CopyObject , lib, acTable, "source"

Set rst = mabd.OpenRecordset("Select * from Codes where Libellé ='" & lib & "'")

DoCmd.RunSQL ("INSERT INTO lib ( Code DR ),( Client Fregate )SELECT FROM Pot_Oct11 WHERE (((Pot_Oct11.LibA_POTENT1)='" & rst & "')) ;")


mrsG.MoveNext
Loop
'fermeture recorset
mrsG.Close