请教：提示语法错误（操作符丢失）

gq402402

运行以下模块，提示语法错误（操作符丢失）
单位机构代码及单位名称均为表中的文本型字段，单位机构代码1及单位名称1为窗体上的文本框
Private Sub 查询记录_Click()
    Dim sql As String
    Dim rst As ADODB.Recordset
    Dim number As Integer
    If IsNull(Me![单位机构代码1]) Then
        MsgBox "请输入机构代码!"
        DoCmd.GoToControl "单位机构代码1"
    ElseIf IsNull(Me![单位名称1]) Then
        MsgBox "请输入单位名称!"
        DoCmd.GoToControl "单位名称1"
    Else
        sql = "select * from 单位信息 where [单位机构代码]＝" & Me![单位机构代码1]
        Set rst = New ADODB.Recordset
        rst.ActiveConnection = CurrentProject.Connection
        rst.CursorType = adOpenDynamic
        rst.LockType = adLockOptimistic
        rst.Open sql
        If Not (rst.EOF) Then
        rst.Close
            Set rst = Nothing
            sql = "所在区县：" & number
            MsgBox sql
            Exit Sub
            Else
            rst.Close
            Set rst = Nothing
            MsgBox "当前仓库中没有该商品库存"
            Exit Sub
        End If
End If
End Sub

[ 本帖最后由 gq402402 于 2007-11-25 17:35 编辑 ]

gq402402

谢谢cuxun,我用你说的改了，但还是提示语法错误，操作符丢失！
单位机构代码及单位名称均为表中的文本型字段，单位机构代码1及单位名称1为窗体上的文本框

gq402402

其实这段是我从书上抄的，后面的这个 Set rst = Nothing是没用的,我只想实现输入单位机构代码或者单位名称,点击查询记录,在下面能显示出符合的记录,我是个新手已经,想了很久了还是不懂.麻烦你帮我改改吧~~谢谢了

gq402402

谢谢CUXUN!!!我改过来了~~~真的谢谢你啊~~~
想再问你个问题,我想将这个程序改成:输入单位机构号后,点查询,窗体即显示单位机构号相同的记录,不知要怎么改?麻烦你了~~~谢谢!

[ 本帖最后由 gq402402 于 2007-11-25 18:28 编辑 ]

gq402402

非常谢谢CUXUN!!!!
感谢你帮了我的大忙了!实在谢谢啦!!!