请高手指教！

古怪的MSHFlexGrid显示数据问题， 不知我是否混头了，怎么也不知道错在哪里，此代码程序刚启动时，此代码运行时MSHFlexGrid显示正确，但用其他子程序里加进新记录后，再用此代码UPDATE刷新MSHFlexGrid就死活都不能正确显示，总显示原来没有增加记录前的东西。除非程序重新启动才显示正确。高手也许一看就能找到其中问题。
 代码如下：
PriCstr = "select * from XXXXX"
    With HFGrid1
         
      .Redraw = False
      .Rows = 2
      .Cols = 3
      .Row = 0
      .RowHeight(.Row) = 300
      .Col = 0
      .FixedAlignment(.Col) = 3
      .ColWidth(.Col) = 820
      .Text = "AAAAA"
      .Col = 1
      .FixedAlignment(.Col) = 3
      .ColWidth(.Col) = 1300
      .Text = "BBBBB"
      .Col = 2
      .FixedAlignment(.Col) = 3
      .ColWidth(.Col) = 950
      .Text = "CCCCC"
            
    Set PriReset = New ADODB.Recordset
       
    Set PriReset = ADOcon.Execute(PriCstr)
    Do While Not PriReset.EOF
      If Not PriReset.EOF Then
       
       .AddItem ""
       .TextMatrix(.Row, 0) = PriReset.Fields(0).Value
       .TextMatrix(.Row, 1) = PriReset.Fields(1).Value
       .TextMatrix(.Row, 2) = PriReset.Fields(2).Value
         .Row = .Row + 1
                   
      End If
      PriReset.MoveNext
    Loop
    PriReset.Close
    .RemoveItem (.Rows - 1)
     
   HFGrid1.Redraw = True
   End With
End Sub