PB SQL ACCESS

Bonjour tout le monde voilà j'ai un petit soucis avec mon code ci-dessous.
Mon pb est tout simple , mon recordset ne me ramène qu'un seul enregistrement alors que ma [Table1] en contient une dizaine. Ce qui fait donc que mon db.execute tourne en rond avec un seul enregistrement
J'ai dejà essayer de changer mon SQL en metant tout les champs ou même en incorporant une clause WHERE mais rien n'y fait il me trouve tjs qu'un seul enregistrement.

Si quelqu'un à une idée!! MERCI

Public Sub fredo()
Set db = CurrentDb
Set Rs = Nothing

SQL = "SELECT * FROM [Table1]"
Set Rs = db.OpenRecordset(SQL)
a = Rs.RecordCount

If Rs.RecordCount > 0 Then

Do Until Rs.EOF

db.Execute "INSERT INTO Table2([LP],[LABEL],[CODE PRODUIT])values('" & Rs![LP] & "','" & Rs![Label] & "','" & Rs![CODE PRODUIT] & "')"
Loop
End If
End Sub