请教combo选项对应字段的问题！！！真的很紧急啊！

现有一Access数据库dataA，
包含姓名、学号、语文、数学、英语、物理等等成绩
每一列都是对应的值
现在想通过窗体1实现数据调用，有4个text，index值从2到10，分别对应学号语数外等等成绩，另有一个Combo，对应的是姓名，index值为1。想通过combo选择姓名，text里面显示对应姓名里面的值。其中数据库已经连接上，combo以及text已经对应了数据库里面的对应项

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Dim i As Integer
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"
rs.Open "dataA", cnn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
nums = rs.RecordCount
For i = 2 To 10
  data(i) = rs.Fields(i) ‘text的index值对应数据库中的对应字段
Next i
For i = 1 To nums
  Combo1.AddItem rs.Fields(1) ’combo调用第一个字段的值
  rs.MoveNext
Next i

End Sub

上面的语句实现了下拉菜单显示字段1姓名的值，只是其他的text现在只能显示第一条记录对应的数值，现在希望通过下拉选择姓名能够出现对应学生的学号成绩等，显示在对应的text中，请问怎么实现。语句怎么写？我才学VB，很多都不懂，希望大家能帮帮我 --------------------编程问答-------------------- "才学VB，很多都不懂"
说了你也未必懂
你在Combo1的Click里学代码重新检索,然后把结果赋值给显示的控件即可.
就说这些,不提供现成代码,提供了你也未必会用 --------------------编程问答-------------------- Form_Load 里填combo1

Combo1_Click里根据Combo1.text的值查询  
"select * from dataA where 姓名= '" & combo1.text & "' " 

补充：VB ,  控件