faysky2(),又有问题了阿????

'读节点数据
    rs.Open "select * from gis_point", conn, adOpenStatic, adLockReadOnly, adCmdText
     nNode = rs.RecordCount  '获得记录条数
ReDim LonNode(1 To nNode), LatNode(1 To nNode), NoNode(1 To nNode)
    For I = 1 To nNode
        LonNode(I) = rs.Fields(0).Value
        LatNode(I) = rs.Fields(1).Value
        NoNode(I) = Val(rs.Fields(2).Value)
        rs.MoveNext
    NextSet rs1 = New ADODB.Recordset
If rs.State = adStateOpen Then rs.Close
'End读节点数据'Begin读Line数据
rs1.Open "select * from gis_side", 3, 2
nLineNode = rs1.RecordCount
ReDim LineNode(1 To 2, 1 To nLineNode), LineDis(1 To nLineNode)
ReDim LineNodeNo(1 To 2, 1 To nLineNode)For I = 1 To nLineNode
LineNode(1, I) = rs1.Fields(0).Value
LineNode(2, I) = rs1.Fields(1).Value
LineDis(I) = rs1.Fields(2).Value
rs1.MoveNext
    Next
'End读Line数据
出现编译错误啊!Can't assign to array!