VB训练题？

使用定时器控件，每隔3秒钟自动生成一个50～200之间的随机数，并且把该随机数保存在一个Collection集合对象中，在程序关闭的时候，统一把所有这些数的平均值保存在ACCESS数据库中。
菜鸟初学，请多多指教

首先要引用ADO对象，打开菜单“工程-引用”，选择“Microsoft ActiveX Data Objects 2.0 Library”将其沟选，这样就可以进行声明ADO对象了
Dim cnn As New ADODB.Connection 'ADO连接对象
Dim Collection As ADODB.Recordset 'ADO记录集对象
Dim Cnt As Integer '计算产生随机数的个数
Dim No() As Integer '动态数组存放所有产生的随机数字

Private Sub Command1_Click()
Form_Unload (True) '调用窗体的卸载事件
End Sub

Private Sub Form_Load()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Collection.mdb"
'打开数据库连接，驱动程序Microsoft.Jet.OLEDB.4.0，数据源为当前目录下的Collection数据库
Set Collection = New ADODB.Recordset
'申请一个新的Collection记录集对象
Collection.Open "select * from tab", cnn, adOpenKeyset, adLockOptimistic
'打开记录集对象
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
If Cnt > 0 Then
For i = 1 To Cnt
Collection.AddNew '增加记录
Collection.Fields(0) = No(i)