未发现数据源名称并且未指定默认驱动程序的问题，求助

Private Sub cmdQuery_Click()
    Dim strSQL As String
    If Trim(txtName.Text) = "" Then
       MsgBox "查询结果不能为空!", vbOKOnly + vbExclamation, "警告!"
       txtName.SetFocus
       Exit Sub
    End If
    strSQL = "Select*From product Where 名称 like +" '"+replace(replace(trim(txtname.Text),"'"),""")+"%'"
    = adCmdText
    Adodc1.RecordSource = strSQL
    Adodc1.Refresh
End Sub
程序运行时显示未发现数据源名称并且未指定默认驱动程序的问题，点确定显示对象refresh的iadodc1方法失败。我明明连上数据库了，但点查询按钮时
出现以上情况