Dim sql As String = "select * from Users where UserID in (select UserID from OrgUsers where OrgID = " & CInt(targetOrg) & ")"
        Dim dr As SqlDataReader = d.GetReader(sql)
        If dr.HasRows Then
            Dim paid As List(Of String) = Nothing
            While dr.Read
                If dr.Item("PaymentReceivedYN") Then
                    paid.Add("1")
                Else
                    paid.Add("0")
                End If
            End While
            dr.Close()

            If paid.Contains("0") Then
                chkOrgPaid.Checked = False
            Else
                chkOrgPaid.Checked = True
            End If
        End If