这是我写的查询语句，总是出现from语句错误，想让大家帮忙看看
Private Sub find_Click()
  If Text1.Text = "" Then
    MsgBox "请输入编码", vbCritical, "提示"
    Text1.Text = ""
Else
    Adodc1.RecordSource = "select * from 数据表 where 编号 = '&Text1.Text& '"
    Adodc1.Refresh
    End If
   
End Sub

'& Text1.Text &'
Text1.Text前后加空格 看看行不

引号用了中文符号

Private Sub find_Click()
   If Text1.Text = "" Then
     MsgBox "请输入编码", vbCritical, "提示"
 Else
     Adodc1.RecordSource = "select * from 数据表 where 编号 = '" & Text1.Text & "'"
     Adodc1.Refresh
     End If
     
 End Sub