VB

 我的程序只要使用select语句就错误
搞不懂
这个是我的查询语句
帮我看看谢了Private Sub Command3_Click()
Dim mzy As String
mzy = InputBox$("请输入坛号", "查找窗")
Adodc1.RecordSource = "select * from 酒坛信息表 where 坛号=    ''" & mzy & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
 MsgBox "无此坛号!", , "提示"
Adodc1.RecordSource = "酒坛信息表"
 Adodc1.Refresh
 End If
 
End Sub