Sub main()
    TagesDatum = Date
    sevTextBox.CurrencyText = " "
 
    sUserID = "root"
    sPassword = "mytravel"
    sServer = "localhost"
    sDatabase = "travel"
    Set oConn = GetRemoteConnection(sUserID, sPassword, sServer, sDatabase)
    Call oConn.Open
    PgmAktion = "NOK"
    PgmUserName = " "
    Anmeldung.Show vbModal
    If PgmAktion = "OK" Then
       MenuForm1.Show vbModal
    End If
    UnloadForms
End Sub
 
Private Sub UnloadForms()
    Dim F As Form
    For Each F In Forms
      Unload F
    Next F
End Sub