vb用data控件链接access数据库后如何使用查询语句？

如图：我已经读出卡号，然后根据读出的卡号(text1.text)在数据库中找到相应的名字然后显示到姓名框（text9.text）中，该怎么写程序？（我自己写了两种程序）

Text9.Text = Data1.Recordset.Fields("姓名") '链接数据库，将卡号对应的姓名显示出来 （第一种写法至此结束，问题是它只能显示数据库姓名字段的第一个名字）
（第二种格式不对） Dim sql As String
sql = select表2.姓名 * from 表2 where((表2.卡号) = Text1.Text)
Text9.Text = sql

注：我要能运行的代码，不要跟我说一大堆思路，小弟分数不多，还望大家见谅。谢谢了。