ACCESS 数据库 VBA ADO 运行出错

详细代码如下：

Private Sub List22_AfterUpdate()

Dim Rs1 As ADODB.Recordset

Dim MYSQL As String

Set Rs1 = New ADODB.Recordset

MYSQL = "SELECT CP本地.* FROM CP本地 WHERE (((CP本地.[过程名称/操作描述])=" & Me.工序 & ") AND ((CP本地.[产品特性/过程参数])=" & Me.List22 & "));"

Rs1.Open MYSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Set Forms!交互界面.[CP本地 查询 子窗体].Form.Recordset = Rs1

End Sub

小弟刚接触VBA，尝试了很多办法，无奈下网络求助，求高手支招，感激不尽！