Oprette tabel i Backend

Jeg vil gerne fram min Frontend oprette en ny tabel i min Backend.
Hvis jeg sætter mydb = CurrentDb() så oprettes den i Frontend, jeg har forsøgt med følgende kode, men får en indtastningformular hvor jeg skal angive en DNS. Filename angiver der hvor brugerens backend er placeret.


Set mydb2 = OpenDatabase(Filename)  'Filename = "C:\makapordemo\MKPdata.mdb"
 
  Set tdf = mydb.CreateTableDef("T_Tidsreg")
      Set fld = tdf.CreateField("Dgsdato", dbDate)
        tdf.Fields.Append fld
      Set fld = tdf.CreateField("Medarb", dbLong)
        tdf.Fields.Append fld
      Set fld = tdf.CreateField("Ordretyp", dbText, 1)
        tdf.Fields.Append fld
      Set fld = tdf.CreateField("AntTim", dbSingle)
        tdf.Fields.Append fld
      Set fld = tdf.CreateField("Oprnr", dbLong)
        tdf.Fields.Append fld
      Set fld = tdf.CreateField("Regkode", dbLong)
        tdf.Fields.Append fld
      Set fld = tdf.CreateField("Ordrenr", dbLong)
        tdf.Fields.Append fld
      Set fld = tdf.CreateField("OpdatDato", dbDate)
        tdf.Fields.Append fld
  mydb.TableDefs.Append tdf


mydb.TableDefs.Refresh