Программное добавление таблицы в другую базу данных

set dbe = CreateObject("DAO.DBEngine.36")   ' DAO.DBEngine.35, DAO.DBEngine.120
set db=dbe.OpenDatabase("c:\temp\mydb.mdb")
db.execute ("create table mytab (id counter constraint ptimarykey primary key, txt text(50))")

Private Sub Form_Open(Cancel As Integer)
    Dim rst As DAO.Recordset, tdf As TableDef
    Dim db As DAO.Database, dbe As Object, mydb As DAO.Database
    
    Set mydb = CurrentDb
    Dim newTbl, linkTbl, con
 
    newTbl = "НоваяТаблица"
    linkTbl = "ИмеющаясЛинкованнаяТаблица"
 
    On Error Resume Next
    Set rst = CurrentDb.OpenRecordset("select * from [" & newTbl & "]") 'Есть ли таблица в БД
    If Err.Number <> 0 Then
        Err.Clear
        On Error GoTo 0
        
        Set dbe = CreateObject("DAO.DBEngine.36")
        con = Replace(CurrentDb.TableDefs(linkTbl).Connect, ";DATABASE=", "")
        Set db = OpenDatabase(con)
        On Error Resume Next
        Set rst = db.OpenRecordset("select * from [" & newTbl & "]")
        If Err.Number <> 0 Then 'Есть ли таблица в табличной базе
            Err.Clear
            On Error GoTo 0
            db.Execute "create table [" & newTbl & "] " _
            & "(id counter constraint ptimarykey primary key, txt text(50))"
            Set tdf = mydb.CreateTableDef(newTbl)
            tdf.SourceTableName = newTbl
            tdf.Connect = CurrentDb.TableDefs(linkTbl).Connect
            mydb.TableDefs.Append tdf
 
        End If
    End If
    
End Sub