Public Function XTblCr(MyCat As ADOX.Catalog, tblName As String)
 'создание таблицы(удаление существующей) с именем tblName + текстовое поле TMPColumn 
Dim Mytable As ADOX.Table
Dim MySql As String
 ' ветвление DDL 
On Error Resume Next
Select Case XSwADox(MyCat)
Case - 1 : Exit Function
Case  0 
 '====================================================================== 
MySql = "Create table " & tblName & "(TMPColumn CHARACTER(255))"
 'Debug.Print MySql 
MyCat.ActiveConnection.Execute MySql

 '======================================================================= 
Case  1 

MyCat.Tables.Delete tblName
Set Mytable = New ADOX.Table
 Mytable.ParentCatalog = MyCat
 Mytable.Name = tblName
 Mytable.Columns.Append "TMPColumn", adVarWChar
 MyCat.Tables.Append Mytable
Set Mytable = Nothing
End Select
End Function
Public Function XSwADox(MyCat As ADOX.Catalog) As Variant
 ' возвращает 0 - DDl; 1 - ADOX;-1 - облом 
Select Case MyCat.ActiveConnection.Provider
Case "SQLOLEDB.1": XSwADox =  0 
Case "Microsoft.Access.OLEDB.10.0": XSwADox =  0 
Case "Microsoft.Jet.OLEDB.4.0": XSwADox =  1 
Case "MSDASQL.1": XSwADox =  0 
Case Else: XSwADox = - 1 
End Select
End Function