Error in if statement

For Each dr1 In reportData.Tables(0).Rows

                Dim con4 As New SqlConnection("Data Source=INSIGHT-002;Initial Catalog=TNVKP_8;user id=sa;")
                con4.Open()
                Dim cmdclustr As New SqlCommand("select ParentUnitID from M_RptUnit where Rpt_Unit_ID='" + dr1("VPRC_ID") + "'", con4)
                Dim redclustr As SqlDataReader
                redclustr = cmdclustr.ExecuteReader()

                If (redclustr.Read()) Then
                    clusterid = redclustr("ParentUnitID")
                    Dim login As String
                    login = Convert.ToString(Session(ssnLOGIN_ID)).ToUpper()
                    'If ((Convert.ToString(redclustr("ParentUnitID"))).ToUpper() = (Convert.ToString(Session(ssnLOGIN_ID))).ToUpper()) Then
                    Response.Write(login)
                    Response.Write(clusterid)
                    'Response.End()
                    If clusterid.ToString() = login.ToString() Then
                        check = 1
                        Response.Write("HAI HAI")
                        Response.Write(check)
                        Response.End()
                    Else
                        check1 = 2
                        Response.Write(check1)
                        Response.End()
                    End If
                End If
                redclustr.Close()
            Next