Dim Db As Database
Dim dbFile As String
Dim TabDef As New TableDef
Dim Feld As New Field
 
dbFile = App.Path + "\CABAL.MDB"
Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, dbEncrypt + _
  dbVersion30)
 
 
TabDef.Name = "INFO"
 
'Datenfeld #1
Feld.Name = "PW"
Feld.Type = dbText
Feld.Attributes = dbAutoIncrField
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #2
Feld.Name = "IP"
Feld.Type = dbText
Feld.Size = 20
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #3
Feld.Name = "Online"
Feld.Type = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
Db.TableDefs.Append (TabDef)
Db.Close
 
Set TabDef = Nothing
Set Db = Nothing

-----
http://www.Sven-Schroeder.com
visit me