关于combo控件与access的连接

access中输入的是“姓名”与“分数”
我已经做好了Data1、combo、text与access的连接，combo下拉菜单中也能找到数据中的所有“姓名”，text中能显示地一个人的分数。但是当我在combo中选定其他姓名的时候，text中的“分数”不能跳转相对应的分数 请问怎么回事？
部分代码如下：
Private Sub Combo1_Click()Text1 = Data1.Recordset("数学")
Text2 = Data1.Recordset("语文")
Text3 = Data1.Recordset("外语")
Text4 = Data1.Recordset("总分")
Text5 = Data1.Recordset("平均分")
Data1.Refresh
End SubPrivate Sub Command4_Click()
Unload Me
End SubPrivate Sub Form_Initialize()
 Data1.Recordset.MoveFirst
 Do While Data1.Recordset.EOF = False
  Combo1.AddItem Data1.Recordset("姓名")
  Data1.Recordset.MoveNext
 Loop
 reccount = Data1.Recordset.RecordCount
 Data1.Recordset.MoveFirst
Combo1.Text = Data1.Recordset("姓名")
 Text1 = Data1.Recordset("数学")
 Text2 = Data1.Recordset("语文")
 Text3 = Data1.Recordset("外语")
 Text4 = Data1.Recordset("总分")
 Text5 = Data1.Recordset("平均分")
 
End Sub