Public Function CeckPersonalNrExists() As Boolean
        Dim iPersonalNr As Integer
        Dim bCancel As Boolean
        Dim sSQL As String = ""
        Dim oCmd As SqlClient.SqlCommand
        Dim oRdr As SqlClient.SqlDataReader
 
        Try
            'Prüfen, ob die PersonalNr. in einen Integer konvertiert werden kann
            If ConvertPersonalNrToInteger(iPersonalNr) Then
                'Prüfen ob PersonalNr bereits exisitert
                sSQL = " SELECT COUNT(MitPersonalNr) AS Anzahl " & _
                       " FROM t_Mitarbeiter " & _
                       " WHERE MitPersonalNr = {0} "
                oCmd = g_oApp.ConnectionAppl.CreateCommand
                sSQL += String.Format(sSQL, iPersonalNr)
                oCmd.CommandText = sSQL
                oRdr = oCmd.ExecuteReader
 
                If oRdr.Read() Then
                    'Falls die Anzahl der geprüften PersonalNr. 0 ist, gibt die 
                    ' Funktion False
                    'zurück und die Validierung läuft weiter
 
                    If String.Format("{0}", oRdr.GetValue(0)) = 0 Then
                        Return False
                    Else
                        'Fehlermeldung
                        MessageBox.Show("Die Personalnummer " & _
                          txtPersonalNr.Text & " existiert bereits.", _
                        "Validierungsfehler", MessageBoxButtons.OK, _
                        MessageBoxIcon.Error)
                        txtPersonalNr.Focus()
                        txtPersonalNr.SelectAll()
                        Return True
 
                    End If
                End If
            Else
                Exit Function
            End If
 
        Catch ex As Exception
            MsgBox(ex)
        Finally
            'Reader schliessen
            Afi.GlobalFunctions.CloseDataReader(oRdr)
        End Try
    End Function
 
    Private Function ConvertPersonalNrToInteger(ByVal iPersonalNr As Integer) _
      As Boolean
        Try
            iPersonalNr = Convert.ToInt32(txtPersonalNr.Text)
            Return True
        Catch
            MessageBox.Show("Das Textfeld PersonalNr enthält einen zu grossen" & _
              "Wert." _
            , "Validierungsfehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtPersonalNr.Focus()
            txtPersonalNr.SelectAll()
        End Try
    End Function

oRdr = oCmd.ExecuteReader