Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        If Me.txtTeam.Text = Nothing Then
            MsgBox("Sie müssen eine Team-Nr angeben!!" & vbCrLf & "(" & _
              "ESC-Taste)", MsgBoxStyle.Critical, "Fehlende Eingaben!!!")
            Me.txtTeam.Focus()
            Me.txtTeam.BackColor = Color.Lime
            Exit Sub
        Else
 
            Try
                Dim vPW As String
                Me.Connection_2_IID.Open()
                ' ############ Überprüfen des Passwortes in DB ###############
                Me.CMD_PW.Parameters("TEAM_NR").Value = Me.txtTeam.Text.ToString
                vPW = CMD_PW.ExecuteScalar
                If vPW <> Me.txtPW_1.Text.ToString Then
                    'PASSWORT stimmt nicht
                    MsgBox("Das eingegebene Passwort stimmt nicht mit dem in" & _
                      "der Datenbank gespeicherten überein!" & vbCrLf & "Bitte" & _
                      "melden Sie sich beim zuständigen Systembetreuer bzw" & _
                      "Schichtleiter", MsgBoxStyle.Critical)
                    Exit Sub
                    Me.txtPW_1.Clear()
                    Me.txtPW_1.Focus()
                    Me.txtPW_1.BackColor = Color.Lime
                Else
                    ' Abmelden des vorher angemeldeten Teams
                    CMD_Logoff.Parameters("TEAM_NR").Value = _
                      My.Settings.vTeam_Nr
                    CMD_Logoff.ExecuteNonQuery()
                    ' Anmelden und Speichern des Neuen Teams
                    ChangeTeam(Me.txtTeam.Text.ToString)
                    CMD_Login.Parameters("TEAM_NR").Value = My.Settings.vTeam_Nr
                    CMD_Login.Parameters("STATION").Value = My.Computer.Name
                    CMD_Login.ExecuteNonQuery()
                    ' Übergabe an FMStart
                    FMStart.StatusUser.Text = "Team-Nr: " & My.Settings.vTeam_Nr
                    Me.Close()
                    Me.Connection_2_IID.Close()
                End If
            Catch ex As System.Data.OracleClient.OracleException
                MsgBox("Das Passwort konnte nicht gegen die Datenbank abgefragt" & _
                  "werden!" & vbCrLf & "Fehlerbeschreibung: " & ex.Message, _
                  MsgBoxStyle.Critical)
                Exit Sub
            End Try
        End If
    End Sub