Private Sub Command1_Click()
   Dim Db As Database
   Dim Tdf As TableDef
   Dim F As Field
 
   Set Db = DBEngine.Workspaces(0).CreateDatabase("C:\test.mdb", dbLangGeneral)
 
   Set Tdf = Db.CreateTableDef("Klient")
 
   Set F = Tdf.CreateField("Klient", dbText, 254)
   F.Attributes = dbVariableField
   Tdf.Fields.Append F
   Db.TableDefs.Append Tdf
 
   Set Tdf = Db.CreateTableDef("Mitarbeiter")
 
   Set F = Tdf.CreateField("Mitarbeiter", dbText, 254)
   F.Attributes = dbVariableField
   Tdf.Fields.Append F
   Db.TableDefs.Append Tdf
 
   Db.Close
End Sub