Public Function XTblAllDel(MyCat As ADOX.Catalog)
' удаление всех локальных таблиц с предвартельным удалением внешних ключей
Dim Mytable As ADOX.Table
Dim MyKey As ADOX.Key
Dim MyAmbar As Collection
Dim MyPoint As Variant
Dim MyRst As ADODB.Recordset
Dim MySql As String
Dim Ct As Long
Dim MySwop As String
' ветвление DDL
Select Case XSwADox(MyCat)
Case - 1 : Exit Function
Case  0 
'==================  DDL     - внешние ключи  =======================================
Set MyAmbar = New Collection
Set MyRst = New ADODB.Recordset
MySql = "select OBJECT_NAME ( id ) as Inna,OBJECT_NAME ( parent_obj ) AS anna  " & _
"from sysobjects where OBJECTPROPERTY ( id , 'IsForeignKey' )=1" 'имя ключа и его таблицы
MyRst.Open MySql, MyCat.ActiveConnection, adOpenStatic, adLockReadOnly
   Do Until MyRst.EOF
    MySwop = "ALTER TABLE " & CStr(MyRst( 1 )) & " DROP CONSTRAINT " & CStr(MyRst( 0 ))
       MyAmbar.Add MySwop
    MyRst.MoveNext
   Loop
MyRst.Close
Set MyRst = Nothing
For Each MyPoint In MyAmbar
   MyCat.ActiveConnection.Execute MyPoint 'удаляем все внешние ключи
   'Debug.Print MyPoint
Next MyPoint
Set MyAmbar = Nothing
'==================  DDL     - таблички  =======================================
Set MyAmbar = New Collection
Set MyRst = New ADODB.Recordset
MySql = "select OBJECT_NAME ( id ) as Inna from sysobjects where OBJECTPROPERTY ( id , 'IsUserTable' )=1" 'имя таблицы
MyRst.Open MySql, MyCat.ActiveConnection, adOpenStatic, adLockReadOnly
   Do Until MyRst.EOF
    MySwop = "DROP TABLE " & CStr(MyRst( 0 ))
       If UCase(CStr(MyRst( 0 ))) <> UCase("dtproperties") Then MyAmbar.Add MySwop
    MyRst.MoveNext
   Loop
MyRst.Close
Set MyRst = Nothing
For Each MyPoint In MyAmbar
   MyCat.ActiveConnection.Execute MyPoint 'удаляем все таблицы
   'Debug.Print MyPoint
Next MyPoint
Set MyAmbar = Nothing
Case  1  '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'=======================   внешние ключи     ==============
For Each Mytable In MyCat.Tables
       If Mytable.Type = "Table" Then
         Set MyAmbar = New Collection
          For Each MyKey In Mytable.Keys
             If MyKey.Type = adKeyForeign Then
               MyAmbar.Add MyKey.Name
             End If
          Next MyKey
                For Each MyPoint In MyAmbar
                    Mytable.Keys.Delete MyPoint
                Next MyPoint
         Set MyAmbar = Nothing
        End If
Next Mytable
'=======================   таблицы      ====================
Set MyAmbar = New Collection
For Each Mytable In MyCat.Tables
         If Mytable.Type = "Table" Then MyAmbar.Add Mytable.Name
Next Mytable
For Each MyPoint In MyAmbar
 MyCat.Tables.Delete MyPoint
Next MyPoint
Set MyAmbar = 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