'------------------------------------------------------------------------------
' ---------
'DATENBANK ERSTELLEN
'------------------------------------------------------------------------------
' ---------
'Existiert die DB?
If Dir(dbFile) <> "" Then
 
  If MsgBox("Die Datenbank-Datei " & dbFile & _
  " existiert schon." & vbCrLf & vbCrLf & vbCrLf & _
  " Soll die Datenbank nun gelöscht werden " & _
     vbCritical + vbYesNo, "ACHTUNG!") = vbYes Then
 
'Datenbank schließen
If Not DB Is Nothing Then DB.Close
Set DB = Nothing
 
'Datenbank löschen          
Kill dbFile
   End If
End If
 
' Wenn Datenbank nicht existiert, dann anlegen
  If Dir(dbFile) = "" Then
  dbErstellen
 
Tabelle1_Erstellen
Tabelle2_Erstellen
'usw
 
If Not DB Is Nothing Then DB.Close
Set DB = Nothing

- mag -