Dim number(5) As Long
Dim value() As Long
Private Sub Form_Load()
number(0) = 1
number(1) = 6
number(2) = 5
number(3) = 3
number(4) = 6
number(5) = 9
value = number
envmain.rsfriend.AddNew
envmain.rsfriend("a 1") = " value"
envmain.rsfriend.Update
End Sub