Access - Como puedo copiar tablas dentro de VB ??

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim rsBackup As DAO.Recordset

Dim strSQL As String

Dim strSQLInsert As String

' Ruta y nombre de la base de datos original

Dim originalDBPath As String

originalDBPath = "C:\RutaDeTuBaseDeDatosOriginal\TuBaseDeDatosOriginal.mdb"

' Ruta y nombre de la base de datos de respaldo

Dim backupDBPath As String

backupDBPath = "C:\RutaDeTuBaseDeDatosBackup\TuBaseDeDatosBackup.mdb"

' Nombres de las tablas de origen y respaldo

Dim originalTableName As String

originalTableName = "NombreTablaOriginal"

Dim backupTableName As String

backupTableName = "NombreTablaBackup"

' Inicia la creación de la base de datos de respaldo

Set db = DBEngine.Workspaces(0).CreateDatabase(backupDBPath, dbLangGeneral)

' Crea la nueva tabla de respaldo con la misma estructura que la tabla original

strSQL = "SELECT * INTO " & backupTableName & " IN '" & backupDBPath & "' FROM " & originalTableName

db.Execute strSQL

' Abre los recordsets para copiar los datos de la tabla original a la tabla de respaldo

Set rs = DBEngine.OpenDatabase(originalDBPath).OpenRecordset(originalTableName)

Set rsBackup = db.OpenRecordset(backupTableName)

' Copia los datos de la tabla original a la tabla de respaldo

rs.MoveFirst

Do Until rs.EOF

    rsBackup.AddNew

    For Each fld In rs.Fields

        rsBackup.Fields(fld.Name).Value = fld.Value

    Next fld

    rsBackup.Update

    rs.MoveNext

Loop

' Cierra los recordsets y la base de datos de respaldo

rs.Close

rsBackup.Close

db.Close

' Destruye los objetos

Set rs = Nothing

Set rsBackup = Nothing

Set db = Nothing

MsgBox "Respaldo realizado con éxito", vbInformation