help my mshflexgrid1 did not update

[ryan311]

how can i update my table please help. .

MSHFlexGrid1.Clear
MSHFlexGrid1.Rows = 2
MSHFlexGrid1.FormatString = "|Product Description               | Unit  |  Price Per  Unit |  Quantity"
Set rs = New ADODB.Recordset
rs.Open "select * from temp", cn, 3, 3
Counter = 1
Do While Not rs.EOF
                MSHFlexGrid1.TextMatrix(Counter, 1) = rs!pcode
                MSHFlexGrid1.TextMatrix(Counter, 2) = rs!quantity
                MSHFlexGrid1.TextMatrix(Counter, 3) = rs!unit
                MSHFlexGrid1.TextMatrix(Counter, 4) = rs!price
                           
                MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
                Counter = Counter + 1
                rs.MoveNext
            Loop
Set rs = Nothing

everytime i include a product my table did not update please help. .