Private Sub BAnmelden_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles BAnmelden.Click
 
		' meldet sich am System an
		' setzt Konsolenbefehl ab
		Dim user As String
        Dim password As String
        Dim mgbx As Integer
 
        If pfad = "" Or Not (pfad Like "*.odb") Then
            mgbx = MsgBox("Bitte wählen Sie eine Datenbank aus!", _
              MsgBoxStyle.Information, "Datenabnk auswählen!")
            If mgbx = vbOK Then Exit Sub
        End If
 
		Me.Hide()
 
		' Generiert neuen Splashthread
        Dim splashThread As Thread = New Thread(New ThreadStart(AddressOf _
          StartSplash))
        splashThread.Start()
 
        user = TBUser.Text
        password = TBPasswort.Text
 
        ' öffnet DB
        dbserver.OpenDatabase(pfad, user, password, _
          OrgDbServer31.OrgDbAdminRightsEnum.ORGDB_ADMINRIGHTS_NONE)
        dbserver.Visible = True
 
        ' Schließt die Anwendung
        CloseSplash()
        Me.Close()
 
    End Sub