小弟刚学ACCESS代码，要编写个顾客查询，代码如下： Private Sub Command1_Click() （子过程或函数未定义） Dim rs As New ADODB.Recordset Dim str As String Dim sName As String, sNo As String, sAdd As String sName = Text0.Value If IsNull(sName) Then MsgBox ("请输入要查询的顾客的姓名!!!") Else str = "select 顾客姓名,性别,家庭住址,联系电话,邮编 from 顾客信息 where 顾客姓名=\'" & sName & "\'" Set rs = GetRs(str) Text1.Value = rs(0) Text2.Value = rs(1) Text3.Value = rs(2) Text4.Value = rs(3) Text5.Value = rs(4) rs.Close End Sub 说什么编译错误（子过程或函数未定义），我不知道那边错了，望高手帮忙看看，告知小弟那边错，并如何改正，谢谢！
1、MsgBox ("请输入要查询的顾客的姓名!!!")这个应该用MsgBox "请输入要查询的顾客的姓名!!!"，在vba中带括号参数的会作为带有返回值的函数处理。2、Set rs = GetRs(str)这个用法没用过，我以前写都是用rs.Open str, currentproject.connection,指针类型3、另外，赋值之前也应该判断rs中是否有记录，如果rs.EOF的话就不应该进行赋值，否则会报错。
提问者对答案的评价： |
