分数很多！！在VB中用SQL语句查询的方法？

[longbow2]

我用VB做了一个同学录，我想实现输入人名进行查询，并将查询到的记录显示在我做的界面中，但写SQL是遇到问题，请众位高手不吝赐教。我使用的是DATA控件。

[TonyLau]

下面的代码演示该过程:(假设你的资料库名称为STUDENTS.MDB,内有一个STUDENTDATA的资料表,表中有一个名为NAME的字段)
Public sub QueryStudent(ByVal sName as String)
Dim rstTemp as RecordSet
Dim dtTemp as Database

Set dtTemp=OpenDatabase(App.Path & "\" & "Students.MDB")
Set rstTemp=dtTemp.OpenRecordSet("SELECT * FROM StudentData WHERE Name='" & sName & "'")

On Error Goto ErrHandle

with rstTemp
.MoveFirst
for x=0 to rstTemp.Fields.count-1

'下面的代码显示该同学的资料,例如:TXTNAME.TEXT=.FIELDS(0).VALUE
NEXT
END WITH

rstTemp.Close
dtTemp.Close
set rstTemp=Nothing
Set dtTemp=Nothing

on error goto 0
exit sub

ErrHandle:
msgbox "Not found !!"
exit sub

end sub