Dim tdfNew As TableDef, fldTemp As Field
   Dim WebDB As Database, WebSet As Recordset
   dbname = "AlteDB.mdb"
   Set WebDB = Workspaces(0).openDatabase(dbname)
 
   Dim nWindEx As Database, customerTable As TableDef   
 
   Set customerTable = WebDB.CreateTableDef("KOM_Modelle")
 
   customerTable.Connect = _
     ";DATABASE=c:\projekte\kompa\bechlem\KompaShop_Web.mdb"
   customerTable.SourceTableName = "KOM_Modelle"
   WebDB.TableDefs.Append customerTable
 
   WebDB.Close