listview报错380ListView1.ListItems.Item(m).SubItems(n) = rs.Fields(n).Value

Question

Private Sub FILL_ListView()
  Connect
  ListView1.ListItems.Clear
  Dim n, m, ct As Integer
  Dim sql As String
  sql = "select * from ygb order by bh"
rs.Open sql, cn
ct = rs.Fields.Count - 1
  If rs.BOF = False Then
     rs.MoveFirst
     m = 1
     While rs.EOF = False
      ListView1.ListItems.Add
      ListView1.ListItems.Item(m) = rs.Fields(0).Value
      For n = 1 To ct
       If Not IsNull(rs.Fields(n).Value) Then
         ListView1.ListItems.Item(m).SubItems(n) = rs.Fields(n).Value“这里报错380无效属性值”
       End If
     Next n
     m = m + 1
     rs.MoveNext
  Wend
End If
rs.Close
DisConnect
求帮助！！急！！急！急！！谢谢了...

Answer 1

rs.Fields(n).Value
打印出来看看是不是NULLListView1.ListItems.Item(m).SubItems(n) 
要确定数目