请大家帮忙！！！

Question

我现在用vb做的前台，用数据源odbc把sql数据库和vb联系起来了，但是效果不是很好，我还是不很会用，我现在就有一个很郁闷的问题．我在数据库里建了一张表，它的两个属性是学生姓名和学生学号，在vb里的界面上有两个text框，第一个输入姓名，第二个输入学号，我想两个都输入后，点击一个确定键，就可以把姓名送入数据库进行查询，将查询到的学号返回到vb里，然后和输入的学号进行对比．
我现在不会把在text里输入的姓名送到数据库里，并让它查询，然后将查询到的学号返回到vb里．
请各位高手快来帮帮我！！！

Answer 1

dim rs as adodb.recordset
dim conn as adodb.connectionsql="select * from table where 姓名='"& 姓名.text &"'"
set rs = new adodb.recordset
rs.open sql,conn,3,2
if rs.eof then
   msgbox("不存在")
else if rs("学号") = 学号.text then
        ....
     else
        ....
end if如果需要循环,可以将代码加到
do while not rs.eof
   ....
   rs.movenext
loop
中

Answer 2

Dim strSQL As String
Dim rsStudent As ADODB.RecordSet
Dim cnDataBase as ADODB.Connection''连接数据库 
cnDataBase.Open .........strSQL="Select 学号 From 表 Where 姓名='" & txtName.Text & "'"
''打开记录集
Set rsStudent As New ADODB.Recordset
rsStudent.Open strSQL,cnDataBase学生姓名=rsStudent("学号").Value

Answer 3

dim rs as new adodb.recordset
dim conn as new adodb.connectionconn.open 连接字符串set rs=conn.execute("select 学号 from 表 where 姓名='" & 姓名文本框.text & "'")
if rs!学号=学号文本框.text then
   '相同...
else
　　'不同....end if