求助，关于数据库中数据保存到数组
朋友们，我想把数据库（data.mdb）中表（davis）中的两个字段（字段1、字段2）中数据保存到两个数组中，然后在picture上作为X、Y坐标显示出来，最后连接这些点做成一个折线图。下面是我的代码。Private Sub Command4_Click()
Picture1.Cls
Picture1.ScaleMode = 0.5
Picture1.Scale (-2, 10)-(10, -10)
Picture1.DrawWidth = 1
Picture1.Line (-1, 0)-(9, 0), vbBlue
Picture1.Line (8.5, 0.5)-(9, 0), vbBlue
Picture1.Line (8.5, -0.5)-(9, 0), vbBlue
Picture1.ForeColor = vbBlue
Picture1.Print "X"
Picture1.Line (0, -9)-(0, 9), vbBlue
Picture1.Line (0.2, 8.5)-(0, 9), vbBlue
Picture1.Line (-0.2, 8.5)-(0, 9), vbBlue
Picture1.Print "Y"
For i = -8 To 8 Step 2
Picture1.CurrentX = 0
Picture1.CurrentY = i
Picture1.PSet (0.02, i)
Picture1.Print i
Next
For i = 0 To 8 Step 1
Picture1.CurrentX = i
Picture1.CurrentY = 0
Picture1.PSet (i, 0.02)
Picture1.Print i
Next 以上是坐标系得代码，已经运行，没有错误。
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim m As Long, Rc As Long
Dim Zx() As Double, Zy() As Double
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data.mdb;Persist Security Info=False"
Conn.Open "select 字段1,字段2 from Davis", Conn, 1, 1
Rc = Rs.RecordCount
ReDim Zx(Rc) As Double
ReDim Zy(Rc) As Double
For m = 0 To Rc - 1
Zx(m) = Rs(0)
Zy(m) = Rs(1)
Rs.MoveNext
Next
For m = 0 To 9
Line (Zx(m), Zy(m))-(Zx(m), Zy(m))
Next
End Sub 以上是在picture上表达出来，然后画折线图
最后程序还是无法运行，，求各位帮帮忙！！谢谢
