Pour créer une nouvelle table, il faut utiliser un objet command.
Auparavant, bien sûr, il faut avoir créé une table "archive" comportant exactement la même structure que la table "patient".

Exemple de code :

Sub CreateArchive(Conn As ADODB.Connection)
Dim sSQL As String
Dim Cmd As ADODB.Command
Set Cmd=New ADODB.Command
Cmd.ActiveConnection=Conn
sSQL="INSERT INTO archive SELECT * FROM patient;"
Cmd.Execute sSQL
sSQL="DELETE * FROM patient;"
Cmd.Execute sSQL
Set Cmd=Nothing
End Sub

Pour créer une table, c'est très facile, il faut utiliser l'objet command et bien entendu connaître le language SQL

Exemple :

Sub CreateArchive(Conn As ADODB.Connection)
Dim sSQL As String
Dim Cmd As ADODB.Command
Set Cmd=New ADODB.Command
Cmd.ActiveConnection=Conn
sSQL="CREATE TABLE archive(NomChamp1 TypeChamp1, NomChamp2 TypeChamp2,..., CONSTRAINT NomIndex PRIMARY KEY(Champ1Index, Champ2Index,...));"
Cmd.Execute sSQL
Set Cmd=Nothing
End Sub

Les Types de champs sont :
TEXT(5) pour les champs de texte de longueur inférieure ou égale à 64 caractères avec la longueur indiquée entre parenthèses
BIT pour les champs booléens,
BYTE pour les champs de type octet,
SHORT pour les champs de type entier court,
LONG pour les champs de typs entier long,
SINGLE pour les champs de type réel simple
DOUBLE pour les champs de type réel double,
CURRENCY pour les champs monétaire,
LONGTEXT pour les champs de type mémo (supérieurs à 64 caractères et jusqu'à la taille maximum de la table),
LONGBINARY pour les champs binaires

D'autre part, cette procédure ne doit être utilisée qu'une seule fois, puisque les fois suivantes, les données de la table "patient" sont ajoutées à la tablr "archive".