number in array how to update to database? (code included)(編號：2993)

For example:
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
adoFriends.Recordset.AddNew
adoFriends.Recordset("number") = "total"
adoFriends.Recordset.Update
i = i + 1
e = e + 1
End Sub