Dim Db1 As Database
Dim Db2 As Database
Dim Rs As Recordset
Dim TabDef As TableDef
 
Set Db1 = DBEnigne.OpenDatabase("NWIND.MDB")
Set Db2 = DBEngine.OpenDatabase("NEUEDB.MDB")
Set Rs = Db2.OpenRecordset("Tables")
 
With Db
  For Each TabDef In .TableDefs
    If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then
      Rs.AddNew
      Rs("Name") = TabDef.Name
      Rs.Update
    End If
  Next
End With
Db1.Close
Db2.Close