Dim MyArrDo( 1024 ,  4 ) As Variant
Dim MyArrPosle( 1024 ,  4 ) As Variant
Dim MyDb As Database
Dim MyTbl As TableDef
Dim MyName As String
Dim MyAtr As Variant
Dim MyRst As Recordset
Dim MyY As Long
Dim MyX As Long
Set MyDb = CurrentDb
      MyY =  0 
      For Each MyTbl In MyDb.TableDefs
      MyAtr = MyTbl.Attributes
       If ((MyAtr And dbSystemObject) Or (MyAtr And dbHiddenObject)) Then
                                        MyName = ""
                                                            Else
      
      
        MyArrDo(MyY,  0 ) = MyTbl.Name
        MyArrDo(MyY,  1 ) = MyTbl.DateCreated
       MyY = MyY +  1 
       End If
        
      Next MyTbl

'Import XML
Application.ImportXML DataSource:="d:\777.xml"
RefreshDatabaseWindow
    MyDb.TableDefs.Refresh
    MyY = 0
      For Each MyTbl In MyDb.TableDefs
      MyAtr = MyTbl.Attributes
       If ((MyAtr And dbSystemObject) Or (MyAtr And dbHiddenObject)) Then
                                        MyName = ""
                                                            Else
      
      
        MyArrPosle(MyY, 0) = MyTbl.Name
        MyArrPosle(MyY, 1) = MyTbl.DateCreated
       MyY = MyY + 1
       End If
        
      Next MyTbl
MyMax = MyY
For MyY = 0 To MyMax - 2
'Debug.Print MyArrDo(MyY,  0 ); MyArrPosle(MyY,  0 )
If MyArrDo(MyY,  0 ) <> MyArrPosle(MyY,  0 ) Then
  MsgBox (MyArrPosle(MyY,  0 ))
  Exit For
End If
Next MyY
Set MyDb = Nothing