关于数据查询，DataGrid控件显示问题


情况如题，肯请高手帮助解决，数据库查询可以完成，显示赋值出现问题   
    Dim requery As New ADODB.Recordset
    Dim questr As String
    Dim i As Integer
    Dim LtItm As ListItem    '清空列表
    ListView1.ListItems.Clear
    '数据集指向第一个记录
    requery.MoveFirst
    For i = 1 To requery.RecordCount
      Set LtItm = Me.ListView1.ListItems.Add()
         LtItm.Text = requery.Fields("自动编号字段").Value
         LtItm.SubItems(1) = requery.Fields("字段2").Value           
         LtItm.SubItems(2) = requery.Fields("字段3").Value
         LtItm.SubItems(3) = requery.Fields("字段4").Value
         LtItm.SubItems(4) = requery.Fields("字段5").Value
         LtItm.SubItems(5) = requery.Fields("字段6").Value
      requery.MoveNext
    Next i
单步调试时，requery.Fields("字段2").Value可以看见预想值，但就是不能赋值给ltItm.SubItems(1)