^o^ listview的subitems使用出现InvalidArgument=“1”的值对于“index”无效。错误 重赏!!!!!

Public Class Form1
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New ADODB.Connection()
        rs = New ADODB.Recordset()
        With conn
            .Provider = "Microsoft.Jet.Oledb.4.0"
            .Open("employee_data.mdb")
        End With
        rs.Open("select * from 商品库存", conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
        Dim column_count As Single = rs.Fields.Count
        Dim count_row As Single = rs.RecordCount
        ListView1.GridLines = True
        For i As Single = 0 To column_count - 1
            ListView1.Columns.Add(rs.Fields(i).Name, 70)
        Next i
        ListView1.Items.Clear()
        For i As Integer = 1 To count_row
            ListView1.Items.Add(rs.Fields(0).Value)
            For j As Integer = 1 To column_count - 1
                ListView1.Items(i).SubItems(j) = rs.Fields(j)
            Next
            rs.MoveNext()
        Next
        conn = Nothing
        rs = Nothing
    End Sub
End Class

--------------------编程问答-------------------- 具体代码没仔细看，ListView也不是很了解
不过很明显的是数组越界的错误。。。 --------------------编程问答-------------------- ?．．．错误啊．．． --------------------编程问答-------------------- 类型不对 转为数字类型 --------------------编程问答-------------------- 我建议你在出错的地方设置断点，
让程序运行到断点处。
然后添加观察（Add Watch)ListView1,
展开它，查看items的count，或subitems的count，
是否引用越界。

补充：.NET技术 ,  VB.NET