"run-time error 3251"/ программное создание базы данных / и

   Dim cat As ADOX.Catalog, tbldb As ADOX.Table
' в этом месте возникает ошибка: User-defined type not defined
'в references включены MS DAO 3.6 Object Library(OL), MS AcitveX Data Object 2.8 Library, MS AcitveX Data Object Recordset 2.8 Library, MS Office 14, MS Office 14
' Вопрос 1: какую библиотеку еще подключить чтобы эти типы данных регистрировались
 
   cnnAcc.Open cnnStrAcc 'открыть конекшен
   Set rst = CreateObject("ADODB.Recordset")
   rst.ActiveConnection = cnnAcc 'активный конекшен
   rst.LockType = adLockOptimistic
   rst.CursorType = adOpenKeyset
 
' в этом месте возникает ошибка: run-time error 3001 Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом
' которую можно ликвидировать убрав либо lockType или CursorType
'Вопрос 2 что здесь неправильно
 
    rst.Open s, cnnAcc 's -конкретная таблица в access
    While Not rst.EOF
       'здесь код чтения и выборки записей
        rst.MoveNext
    Wend
    rst.AddNew
' здесь ...
    rst.Fields(1) = "полный Бред"
 
' ...или здесь (в зависимости какая строка закоментирована) возникает ошибка: run-time error 3251.Текущий объект RecordSet не поддерживает обновление. Это связано с ограничением поставщика или выбранным типом блокировки
'справиться не удалось, перепробовал все что нашел в интернете открыл папку в которой находится файл для общего доступа, переписал файл на флешку (другая файловая система), может какие то проблемы с реестром, даже не знаю...
'Вопрос 3 как это можно вылечить
 
    rst.Update
    rst.Close
    Set rst = Nothing
    Set cnnAcc = Nothing

Public Sub CreateTables()
 
    Dim cat As ADOX.Catalog, tbldb As ADOX.Table, nametbl As String' ВЫШЕУКАЗАННАЯ ОШИБКА 
'ВОЗНИКАЕТ В ЭТОЙ СТРОКЕ
    Dim wspDefault As Workspace, dbs As Database
    Dim ind As Object, varind As Variant, acDoc As Object
    Dim rst As Object, fld As Field, fd As FileDialog, Itemfile As Variant
    Dim filname As String, n As Integer, m As Integer, zag() As Variant
    Dim obWord As Object, obDoc As Object, obTbl As Object
      
    Set obDoc = ActiveDocument
    Set obTbl = obDoc.Tables(1)
   n = obTbl.Rows.Count
   m = obTbl.Columns.Count
   ReDim zag(m)
  ' создание таблицы БД
 
    Set cat = CreateObject("ADOX.Catalog") ' ЭТА ПРОБЛЕМА БЫЛА РЕШЕНА ЭТОЙ СТРОКОЙ
'А ПЕРЕМЕННАЯ cat была декларирована as Object
'   .... ДАЛЕЕ КОД ПРОГРАММЫ
'ВОПРОС В ТОМ ПОЧЕМУ ПРИ ОПИСАНИИИ В DIM НЕ РЕГИСТРИРУЕТСЯ ЭТОТ ТИП ДАННЫХ?
'cat As ADOX.Catalog, tbldb As ADOX.Table

    Set acDoc = CreateObject("Access.Application")
    acDoc.NewCurrentDatabase ("G:\Progecte\Programming\Access\Internal")
    acDoc.Visible = True
    Set cat = CreateObject("ADOX.Catalog")
    Set conn = CreateObject("ADODB.Connection")
    Set conn = CurrentProject.Connection
    cat.ActiveConnection = conn ' в этом месте почему то опять возникает ошибка:
'run-time error 3001 Аргументы имеют неверный тип, выходят за пределы допустимого '
диапазона или вступают в конфликт друг с другом

Set cat = CreateObject("ADOX.Catalog")

    
    myIdx = CreateObject("ADOX.Index")
    With myIdx
        .Name = "idxDescription"' В ЭТОМ МЕСТЕ ВОЗНИКАЕТ ОШИБКА ТРЕБУЕТСЯ ОБЪЕКТ
'              run-time error 424
        .Unique = False
        .IndexNulls = adIndexNullsIgnore
        .Columns.Append "Description"
        .Columns(0).SortOrder = adSortAccending
    End With
    tbl.Indexes.Append myIdx' ну tbl это естественно таблица в базе данных

...
    Set cat = New ADOX.Catalog
    cat.Create "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strDB & "1" & ".accdb"
    Set conn1 = New ADODB.Connection
    conn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strDB & 1 & ".accdb" & "; Persist Security Info=True;"
    Set tbl = New ADOX.Table
... создали базу данных создали необходимые таблицы итд...
далее необходимо чтото записать (Recordset), перед записью надо сделать следующее ,без этих 
двух строк выдается ошибка... ошибочная инструкция SQL; предполагалось 'DELETE', 'INSERT',...
 
    conn1.Close
    conn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strDB & 1 & ".accdb" & "; Persist Security Info=True;"

Set ОБЪЕКТ = Nothing

Sub io()
    ' создали объект
    Set x = NewObject("forum: { KukLP: 'Sergei', AlexST: 'Alexei', RAN: 'Andrey' }")
    
    ' изменили его свойство
    x.forum.KukLP = "Сергей"
End Sub
 
Function NewObject(ByRef description As String) As Object
    With CreateObject("ScriptControl")
        .Language = "jscript"
        .Addcode "function x(){return {" & description & "};}"
        Set NewObject = .Run("x")
    End With
End Function