这是我写的查询语句，总是出现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