Erreur d'execution '91': Variable objet ou variable de bloc with non défin

Bonjour,

Voilà plus de quatre jours que je n'arrive pas à résoudre ce probléme, malgrés une visite dans ce forum.
Mon code:

Private Sub prc_archive()

'Cette fonction transfere les donnees de la table carte vers la table
'historycarte(vidage de la table carte )
'initialisation des variables
Dim myRS7 As DAO.Recordset
Dim sSQL3 As String
Dim sSQL4 As String
Dim fldnumcpte As String
Dim fldseqp1 As String
Dim fldnom As String
Dim fldcodepays As String
Dim fldnumlot As String
Dim fldcodesupport As String
Dim fldnomencode As String
Dim fldseq1p2 As String
Dim fldseq2p2 As String
Dim fldseq3p2 As String
Dim fldseqp2 As String
Dim datexp As String
Dim fldnomencode11 As String
'Dim myval2 As Variant



sSQL3 = "Delete * From carte" 'variable chaine de caract qui reçoit la requete de suppression de tous les enregistrements de la table carte
'myval2 = DLookup("numcarte", "carte") 'on vérifie si le numéro de validation du fichier à traiter existe dans la table carte (notre table de travail)

Set myRS7 = mydb.OpenRecordset("select * from carte")
While (Not myRS7.EOF) 'parcours des enregistrements et affectation dans les variables
fldseqp1 = myRS7.Fields("seqp1").Value
fldnumcpte = myRS7.Fields("numcarte").Value '
fldnom = myRS7.Fields("nom").Value
fldcodepays = myRS7.Fields("codepays").Value
fldnumlot = myRS7.Fields("numlot").Value
fldcodesupport = myRS7.Fields("codesupport").Value
'fldnomencode11 = myRS7.Fields("nomencode").Value
fldseq1p2 = myRS7.Fields("seq1p2").Value
fldseq2p2 = myRS7.Fields("seq2p2").Value
fldseq3p2 = myRS7.Fields("seq3p2").Value
fldseqp2 = myRS7.Fields("seqp2").Value
datexp = myRS7.Fields("datexp").Value

sSQL4 = "insert into historycarte (seqp1,numcarte,nom,codepays,numlot,codesupport,datexp,seq1p2,seq2p2,seq3p2,seqp2) values( '" & fldseqp1 & "','" & fldnumcpte & "','" & fldnom & "','" & fldcodepays & "','" & fldnumlot & "','" & fldcodesupport & "','" & datexp & "','" & fldseq1p2 & "','" & fldseq2p2 & "','" & fldseq3p2 & "','" & fldseqp2 & "')"
'insertion des enregistrements dans la table historycarte
DoCmd.RunSQL sSQL4
myRS7.MoveNext 'traitement de la ligne des enregistrements suivants
Wend

DoCmd.RunSQL sSQL3 'commande de suppression de tous les enregistrements de la table carte
' Fermeture des recordsets
myRS7.Close
Set myRS7 = Nothing
MsgBox "ok Transfert Terminé"
'End If

quand j'execute le test il me renvoie l'erreur (Erreur d'execution '91': Variable objet ou variable de bloc with non défin) et me signale cela au niveau du code :
Set myRS7 = mydb.OpenRecordset("select * from carte")

Merci de me venir en aide , c'est trés urgent.