请问以下的代码为什么运行不了，哪里出了问题啊，我是使用SQL Server2000作为后台数据库
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=salepoint"
Adodc1.RecordSource = "select ysale as 预测年销售量,msale as 预测年销售额 from forecast "
Adodc1.Refresh
Call loadnum
End Sub

Private Sub loadnum()
Dim j As Integer
Dim num As Integer
On Error Resume Next
Adodc1.RecordSource = "select ysale as 预测年销售量,msale as 预测年销售额 from forecast "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
nums = Adodc1.Recordset.RecordCount
ReDim arrvalues(1 To nums, 1 To 2)
For j = 1 To nums
arrvalues(j, 1) = " " & Adodc1.Recordset!ysale
arrvalues(j, 2) = Adodc1.Recordset!msale
Adodc1.Recordset.MoveNext
Next j
MSChart1.ChartData = arrvalues
End If
End Sub