How Can I Make This Sql Query To Load Data Correctly ?

See more:

VB

SQL-Server-2014

Hi guys

I have a datagridview where the third column is a custom column with all days
of a month. It takes data with a query who distinct the column Improve.
Here is the code :

Private Sub fill_impro()
        dgImprove.Rows.Clear()
        Try
            Dim i As Integer = 0
            Dim query As String = "SELECT Improve,Price,Active,Idate FROM (SELECT Improve,Price,Active,Idate, ROW_NUMBER() OVER (PARTITION BY Price ORDER BY Price) AS rn  FROM tblImprove) tmp WHERE rn = 1"
            cmd = New SqlCommand(query, clsMSSQL.con)
            myDR = cmd.ExecuteReader
            If myDR.HasRows Then
                While myDR.Read
                    dgImprove.Rows.Add()
                    dgImprove.Rows(i).Cells(0).Value = myDR.GetDecimal(myDR.GetOrdinal("Price"))
                    dgImprove.Rows(i).Cells(1).Value = myDR.GetString(myDR.GetOrdinal("Improve"))
                    Dim myday As Integer = DatePart(DateInterval.Day, myDR.GetValue(myDR.GetOrdinal("Idate")))
                    dgImprove.Rows(i).Cells(myday + 1).Value = myDR.GetInt32(myDR.GetOrdinal("Active"))
                    i = i + 1
                            End While
                        End If
            myDR.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Σφάλμα")
        End Try
    End Sub

And here is the result :

http://i60.tinypic.com/28gwf83.jpg[^]

The column Active value is 1.
The problem is that column Active values are missing (red values in image).
How can i fix that ?

Thanks in advance