Fehler mit SqlDataReader, aber wo?

[shivan1]

Hallo zusammen!

Ich schaue mir diesen Code schon die ganze Zeit durch und der SQL - String stimmt auch (habe die Abfrage auch schon manuell gemacht), doch ich weiss einfach nicht wo ich einen Fehler mache.

    Private Function CheckMitNameAlredyExists(ByVal iPersID As Integer)
        Dim oCmd As SqlClient.SqlCommand
        Dim sSQL As String = ""
        Dim oRdr As SqlClient.SqlDataReader

        Try
            sSQL = " SELECT MitName, MitVorname " & _
                   " FROM t_Mitarbeiter " & _
                   " WHERE MitPersID = {0}  "

            sSQL = String.Format(sSQL, iPersID)
            oCmd = g_oApp.ConnectionAppl.CreateCommand
            oCmd.CommandText = sSQL
            oCmd.ExecuteReader()

            If oRdr.Read() Then
                If oRdr.GetValue(0) Is DBNull.Value Or oRdr.GetValue(1) Is DBNull.Value Then
                    Return False
                End If

                If oRdr.GetValue(0) Is String.Empty Or oRdr.GetValue(1) Is String.Empty Then
                    Return False
                End If

                Return True
            End If

        Catch ex As Exception
            MsgBox(ex)
        Finally
            'Reader schliessen
            Afi.GlobalFunctions.CloseDataReader(oRdr)
        End Try
    End Function 

Der Fehler erscheint in der Zeile: If oRdr.Read() Then

Kann mir vielleicht jemand helfen?

Freundliche Grüsse

Shivan

[Ralf Jansen]

Ok du hast eine Fehler. Welchen denn? Wenn du uns das verrätst lässt sich dir vielleicht helfen.

Edit: Vergiß das ich habs erraten. Möchtest du oRdr nicht auch irgendwann zuweisen.

oRdr = oCmd.ExecuteReader()

[shivan1]

Vielen Dank, für deine Antwort. Dass ich das nicht gesehen hab...

Bin halt noch nicht so vertraut mit vb.net.

Besten Dank nochmals!!