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

Question

下面的代码演示该过程:(假设你的资料库名称为STUDENTS.MDB,内有一个STUDENTDATA的资料表,表中有一个名为NAME的字段)
Public sub QueryStudent(ByVal sName as String)
Dim rstTemp as RecordSet
Dim dtTemp as DatabaseSet dtTemp=OpenDatabase(App.Path & "\" & "Students.MDB")
Set rstTemp=dtTemp.OpenRecordSet("SELECT * FROM StudentData WHERE Name='" & sName & "'")On Error Goto ErrHandlewith rstTemp
  .MoveFirst
  for x=0 to rstTemp.Fields.count-1    '下面的代码显示该同学的资料,例如:TXTNAME.TEXT=.FIELDS(0).VALUE
  NEXT
END WITHrstTemp.Close
dtTemp.Close
set rstTemp=Nothing
Set dtTemp=Nothingon error goto 0
exit subErrHandle:
  msgbox "Not found !!"
  exit subend sub