update problem i min funktion........

Hej......... hvorfor kan jeg ikke smide en reader ind her, som tjekker på om email adressen allerede findes i Db, under update af user data?´

Har lavet det samme når man laver INSERT og der virker det fint! :-(

Min funktion:

Public Function UpdateUserData(ByVal ddlUsersValue As Integer, ByVal txtCompanyValue As String, ByVal txtUserNameValue As String, ByVal txtEmailValue As String, ByVal txtPasswordValue As String, ByVal txtUserRightsValue As String, ByVal txtAddedDateValue As String) As Integer 'UpdateUserDetails
        Dim con As New SqlConnection(connectionString)

        Dim cmd As New SqlCommand("sp_GetUserLoginSpecs", con)
        cmd.CommandType = CommandType.StoredProcedure

        'parameter til et email tjek længere nede
        cmd.Parameters.Add("@Email", SqlDbType.NVarChar, 50).Value = txtEmailValue

        Try
            If con.State <> ConnectionState.Open Then
                con.Open()
            End If

            'tjekker om email adressen allerede findes i Db
            Dim reader As SqlDataReader = cmd.ExecuteReader()
            If reader.Read = True Then
                Throw New Exception()
                con.Dispose()
                con.Close()
                Exit Function
            Else
                reader.Close()

                cmd = New SqlCommand("sp_UserUpdate", con)
                cmd.CommandType = CommandType.StoredProcedure

                cmd.Parameters.Add("@UserID", SqlDbType.Int, 4).Value = ddlUsersValue

                cmd.Parameters.Add("@Company", SqlDbType.NVarChar, 50).Value = txtCompanyValue

                cmd.Parameters.Add("@Name", SqlDbType.NVarChar, 50).Value = txtUserNameValue

                cmd.Parameters.Add("@Email", SqlDbType.NVarChar, 50).Value = txtEmailValue

                cmd.Parameters.Add("@Password", SqlDbType.NVarChar, 50).Value = txtPasswordValue

                cmd.Parameters.Add("@UserRights", SqlDbType.Int, 4).Value = txtUserRightsValue

                cmd.Parameters.Add("@AddedDate", SqlDbType.DateTime, 8).Value = txtAddedDateValue

                cmd.Parameters.Add("@Result", SqlDbType.Int, 4).Direction = ParameterDirection.Output



                If ddlUsersValue <> Nothing Then
                    ddlUsersValue = cmd.ExecuteNonQuery()
                Else
                    cmd.Dispose()
                    cmd.Cancel()
                End If
            End If
        Catch
            Throw New Exception()
            con.Dispose()
            con.Close()
            Exit Function
        Finally
            If con.State <> ConnectionState.Closed Then
                con.Dispose()
                con.Close()
            End If
        End Try

        Return CType(cmd.Parameters("@Result").Value, Integer)
    End Function

mvh

DK