Создание поля в таблице - VB

Формулировка задачи:

Как прочитать поля в таблице, я разобрался:

Private Sub Command1_Click()
Dim j As ADODB.Field
Dim SQL1 As String

SQL1 = "SELECT * FROM table WHERE 2=1"
Call AConn

    Dim RSBaza  As ADODB.Recordset
    Set RSBaza = CreateObject("ADODB.Recordset")
    RSBaza.LockType = 2

    RSBaza.Open SQL1, AdoConnection

For Each j In RSBaza.Fields
  Debug.Print j.Name & "-" & j.Type & "-" & j.DefinedSize
  
Next
End Sub

Public Sub AConn()

Dim ConnectionString As String
Dim mdb_file_Z As String

mdb_file_Z = "C:\1.mdb"

Set AdoConnection = CreateObject("ADODB.Connection")
    
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb_file_Z & _
";Mode=Share Deny None;Persist Security Info=False"

AdoConnection.Open ConnectionString

End Sub

Не разобрался только вот с чем:
1. В каком месте прилепить строку

RSBaza.Fields.Append "Question", 202, 50

Чтобы создалось поле "Question"
2. Как прочитать тип или свойство поля, не знаю как выразится, которое бы указало, что это ключевое поле и что это счетчик
P.S. Задача стоит такая: Сравнить две базы данных: 1.mdb и 2.mdb - если в базе 2 нет каких то таблиц, которые есть в базе 1 - то создать их. Если таблица существует - то проверить, все ли поля есть, как в файле 1. Если нет - то создать их.

Решение задачи: «Создание поля в таблице»

textual
                            Листинг программы 
                        

                            Dim rs As New ADODB.Recordset

rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

rs.Fields.Append "StrFld", 202, 50

rs.Open

For i = 1 To 50
rs.AddNew 0, i
Next

rs.Update
rs.MoveFirst

For i = 1 To 50
Debug.Print rs(0)
rs.MoveNext
Next

                        