[求助]请各位高手帮帮忙看看！

如果只是在一个表中查找一个记录，可以用更简单的方法实现：在窗体上放置一个文本框，命名：文本0,用来输入学号ID,标签：请输入学号ID
Private Sub Command1_Click()
    If 文本0  <> "" Then
        xm =DLookup("[姓名]", "[学生表]", "[学号 ID] ="[文本0])
       if isnull(xm) then
        msgbox "没有找到【" & 文本0 & "】这个学号ID",vbokonly,"搜索提示"
       endif
    else
    msgbox "你没有输入学号ID。",vbokonly,"搜索提示"
    End If
End Sub

[此贴子已经被作者于2005-7-30 3:53:01编辑过]

试试这个

Data1.Recordset.FindFirst "学号 ID='" & a & "'"
改为
Data1.Recordset.FindFirst 　　a