Private Sub Main()
  ' Erster Start?
  If GetSetting("MyApp", "Start", "FirstTime", "") <> "" Then
    ' Jepp - erster Start!
    ...
 
    ' Datum des ersten Starts "merken"
    SaveSetting "MyApp", "Start", "FirstTime", Date$
  End If
  ...
End Sub

Private Sub dbCreateTable(Db As Database)
  ' Tabelle erstellen
  Dim oTabDef As New TableDef
  Dim oField As New Field
 
  ' Tabellenname
  oTabDef = "Termine"
 
  ' Felder erstellen  
  With oField
    .Name = "Datum"
    .Type = dbDate
  End With
  oTableDef.Fields.Append oField
  Set oField = Nothing
 
  With oField
    .Name = "Kommentar
    .Type = dbText
    .Size = 255
  End With
  oTableDef.Fields.Append oField
  Set oField = Nothing
  ...
 
  ' Tabelle speichern
  Db.TableDefs.Append oTabDef 
End Sub

Public Sub Main()
  ...
  Load frmPassword
  frmPassword.Show vbModal
  ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de