怎么用VB读取ACCESS表中的某个值

怎么用VB读ACCESS表中的某个数据,并把值放到TEXT中,怎么读?如:A同学的语文成绩.把分数放到TEXT中
用combo1控件做学生姓名的选择,combo2做科目的选择.把成绩返回到TEXT中.请高手写一下代码.最好注解一下..
我是用ADODC连接数据库的.

sql = "select * from 表名 where 姓名='" & Combo1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql,conn,adOpenKeyset,adLockOptimistic
If rs.EOF = True Then
MsgBox "该同学不存在", , "提示"
Else
If rs.Fields(1) = Combo2.Text Then
text.text = rs.Fields(2)
Else
MsgBox "科目错误", , "警告"
Text2.Text = ""
Text2.SetFocus
End If

rs就定义为第一句中那张表，rs.Fields(1)、rs.Fields(2)是表中对应于同学姓名的另外两列：科目和成绩。

sql="select * from 表 where 姓名='" & combo1.text & "'"

Private Sub Combo1_Click()
显示数据

End Sub

Private Sub Combo2_Click()
显示数据

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\表.mdb;Persist Security Info=False"
End Sub

Sub 显示数据()