Array update to database (唔易!) 內有一段program 作參考(編號:3025)

怎樣把array update to database
but I got the error of the following statment:
Dim number(1) As Long
Dim i As Integer
Dim e As Integer
Dim total As Integer

Private Sub Form_Load()
i = 1
e = 2
number(0) = i
number(1) = e
total = number(0) * 10 + number(1) * 1
envMain.rsactives.AddNew
envMain.rsactives("football") = totalnumber
envMain.rsactives.Update
i = i + 1
e = e + 1
End Sub
after I run the program, then appear the warning statment:
error"3704"
so what should I do?
please help me.