求vb非常简单的默写单词小程序代码，要求见内！

我是未来的你，你现在是不是在年找寻小程序答案。你不要感觉诧异，给你来信原因，就是让你不在后悔。今天去学习如何推广小程序，相信......点击查看更多>

分太少了，我给你写，加点分行不行，还有，写好后直接给你代码吗？？还是发给你工程？？

我只能做客户机的程序，由于我对区域网络传递数据不懂，所以我无法将客户机的数据发给主机.
我把单词放在数据库里（aa.mdb），程序任意抽10个，工程文件我已发给你
代码：
Dim adocn As New ADODB.Connection
Dim a(1 To 5)
Dim n As Integer
Dim j As Integer
Private Sub Form_Load()
adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
End Sub

Private Sub Command1_Click()
Timer1.Interval = 500
Call cha
End Sub

Private Sub Timer1_Timer()
If Label6.Caption = 0 Then
For z = 1 To 5
If Controls("text" & z) = a(z) Then n = n + 1
Next
j = j + 1
Call cha
Else
Label6.Caption = Label6.Caption - 1
End If
If j = 2 Then
MsgBox "分数是" & n
Timer1.Interval = 0
End If
End Sub
Private Sub cha()
For z = 1 To 5
Controls("text" & z).Text = ""
Next
adocn.Open
Dim rs As New ADODB.Recordset
Dim strSql As String
For i = 1 To 5
Randomize
strSql = "select * from ss where 编号=" & Int(Rnd * 35 + 1) '35指的是总共题目数
rs.Open strSql, adocn, 3, 3
Controls("label" & i).Caption = rs.Fields("题")
a(i) = rs.Fields("答案")
Set rs = Nothing
Next
adocn.Close
Label6.Caption = 30
End Sub
我已发，并且我试验了，两组后自动结束