Dim Db As Database
Dim dbFile As String
Dim Tabelle As Recordset
Dim TabDef As New TableDef
Dim Feld As New Field
 
Private Sub Command1_Click()
'Datenbak erstellen
dbFile = "C:\nr.MDB"
Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
  dbEncrypt + dbVersion30)
End Sub
 
Private Sub Command2_Click()
'Datenbank-Tabelle erstellen
TabDef.Name = "nrs"
 
'Datenfeld #1
Feld.Name = "Nr"
Feld.Type = dbLong
Feld.Attributes = dbAutoIncrField
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #2
Feld.Name = "A"
Feld.Type = dbLong
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #3
Feld.Name = "B"
Feld.Type = dbLong
TabDef.Fields.Append Feld
Set Feld = Nothing
 
Db.TableDefs.Append TabDef
Db.Close
 
Set TabDef = Nothing
Set Db = Nothing
 
End Sub
 
Private Sub Command3_Click()
'Datenbank öffnen
dbFile = "C:\nr.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("nrs")
End Sub
 
Private Sub Command4_Click()
'Datenbank schließen
Tabelle.Close
Db.Close
Set Tabelle = Nothing
Set Db = Nothing
 
End Sub
 
Private Sub Command5_Click()
'Datensatz1 hinzufügen
Tabelle.AddNew
Tabelle("A") = "1"
Tabelle("B") = "2"
Tabelle.Update
Tabelle.Bookmark = Tabelle.LastModified
End Sub
 
Private Sub Command6_Click()
'Datensatz2 hinzufügen
Tabelle.AddNew
Tabelle("A") = "3"
Tabelle("B") = "4"
Tabelle.Update
Tabelle.Bookmark = Tabelle.LastModified
End Sub

Db.TableDefs.Append TabDef