Option Explicit
Dim dbFile As String
Dim Db As Database
Dim Tabelle As Recordset
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Long) As Long
 
Private Sub Command2_Click()
 'Prüfen, ob Datenbank bereits existiert
    If Dir(dbFile) <> "" Then
      If MsgBox("Die Datenbank-Datei " & dbFile & _
          " existiert bereits." & vbCrLf & vbCrLf & _
          " Soll die Datei zunächst gelöscht werden " & _
          "(hierbei werden die Adressen ebenfalls gelöscht!", _
          vbCritical + vbYesNo, "ACHTUNG!") = vbYes Then
          Kill dbFile
        End If
      End If
      ' Wenn Datenbank nicht existiert, dann anlegen
      If Dir(dbFile) = "" Then
        dbErstellen
        TabelleErstellen
        dbSchliessen
        dbOeffnen
        dbSchliessen
      End If
   End Sub
 ' Datenbank öffnen
' Tabelle "Adressen" öffnen
Private Sub dbOeffnen()
  Set Db = Workspaces(0).OpenDatabase(dbFile, _
    False, False)
  Set Tabelle = Db.OpenRecordset("Adressen")
End Sub
 
Private Sub TabelleErstellen()
  Dim Tabelle As New TableDef
  Dim Feld As New Field
' Name der Datenbank-Tabelle
  Tabelle.Name = "stamm"
 
'Datenfeld #1
Feld.Name = "Kundennummer"
Feld.Type = dbLong
Feld.Attributes = dbAutoIncrField
Tabelle.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #2
Feld.Name = "Firma"
Feld.Type = dbText
Feld.Size = 20
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing
 
Db.TableDefs.Append Tabelle
Set Tabelle = Nothing
 
End Sub
 
Private Sub Form_Load()
' Pfad+Name der Datenbank-Datei
  dbFile = App.Path + "\db4.mdb"
End Sub
 
' Datenbank schließen
Private Sub dbSchliessen()
  If Not Tabelle Is Nothing Then Tabelle.Close
  If Not Db Is Nothing Then Db.Close
  Set Tabelle = Nothing
  Set Db = Nothing
End Sub
 
' Datenbank-Datei erstellen
Public Sub dbErstellen()
  Set Db = Workspaces(0).CreateDatabase(dbFile, _
    dbLangGeneral, dbEncrypt)
End Sub