Можно ли создать таблицу в Базе, имея ее описание в другой таблице, средствами VBA?

expression.CreateTableDef(Name, Attributes, SourceTableName, Connect)

Sub CreateTableX1()
 
    Dim dbs As Database
 
    ' Modify this line to include the path to Northwind
    ' on your computer.
    Set dbs = OpenDatabase("Northwind.mdb")
 
    ' Create a table with two text fields.
    dbs.Execute "CREATE TABLE ThisTable " _
        & "(FirstName CHAR, LastName CHAR);"
 
    dbs.Close
 
End Sub

Sub CreateOpisanie()
  dim db as dao.database, rst as dao.recordset
  dim s, r, f
  
  Set db=currentdb
  set rst=db.openrecordset("select * from Opisanie") 'создаем рекордсет по Opisanie
  r="create table tblOpisanie ("   'начальная строка sql-выражения 
  do until rst.eof                 'цикл по записям с анализом записей и созданием строки sql
    f=""
    if rst!C_tipdannih="string" 
       if isnull(rst!N_dlinastroki) then
         f="memo"
       else
         f="text ("  & rst!N_dlinastroki & ")"
       end if
    else 
       f=rst!C_tipdannih
    end if
    f=rst!C_nameyacheiki & " " & f 
    s=s & "," & f
    rst.movenext
  loop
  s=r & mid(s,2) & ")"  'сборка конечной строки
  db.execute s          'выполнить созданный запрос на создание таблицы
ebd sub

If rst!status = 1 Then
        f = "[" & rst!field_name & "]" & " " & f
    s = s & "," & f
End If

Sub CreateOpisanie(tblDescription As String, tblCreation As String)
'tblDescription - имя таблицы с описанием структуры
'tblCreation    - имя создаваемой таблицы
 
  Dim db As dao.Database, rst As dao.Recordset
  Dim s, r, f
  
  On Error GoTo isErr
  
  Set db = CurrentDb
  Set rst = db.OpenRecordset("SELECT * FROM [" & tblDescription & "]")
  r = "CREATE TABLE [" & tblCreation & "] ("
  Do Until rst.EOF
    f = ""
    If rst!field_type = "string" Then
       If IsNull(rst!lengths) Then
         f = "memo"
       Else
         f = "text(" & rst!lengths & ")"
       End If
    Else
       f = rst!field_type
    End If
    f = "[" & rst!field_name & "]" & " " & f
    s = s & "," & f
    rst.MoveNext
  Loop
  s = r & Mid(s, 2) & ")"
  
  If ifTableExists(tblCreation) Then
  
    db.Execute "DROP TABLE [" & tblCreation & "]"
    
  End If
  
  db.Execute s
  'Debug.Print (s)
errNo:
  Exit Sub
isErr:
  MsgBox "Ошибка создания таблицы: " & Err & " " & Err.Description
  Resume errNo
End Sub

    Set Location = [A1]
    Rw = Location.Row
    col = Location.Column
    c = col
    Dim i As Long
    For i = 0 To Rs.Fields.Count - 1
        Cells(Rw, i + 1) = Rs(i).Name
    Next