我在做ACCESS时候，有四个文本框 一个DATA控件，一个CAMMAND按钮 下面是编写的 “搜索” 功能的部分代码 可是运行时 提示错误 “语法错误” 请问各位高手 ，错在什么地方？谢谢

Private Sub Command1_Click() Dim a As String a = InputBox$("请输入学号", "学号搜索", "09033856") If a <> "" Then Data1.Recordset.FindFirst "学号 ID='" & a & "'" End If End Sub

[此贴子已经被作者于2005-3-15 17:05:48编辑过]