请帮我看看下面一段VBA代码有什么问题！

caojianke223

请帮我看看下面一段VBA代码有什么问题，为什么在ACCESS2000里可以执行，但在ACCESS2003里却不能执行，说是无效字符。

Private Sub 包装成本（元_升）_DblClick(Cancel As Integer)

'定义查询变量

    Dim r1 As QueryDef

   

    '设置r1为"成本详细信息"的一个实例

    Set r1 = CurrentDb.QueryDefs("成本详细信息")

    '设置r1的查询SQL语句

    r1.sql = "select * from 配方表 where 配方名称=""" + 配方名称 + """"

    '打开“成本信息”窗体成本

    DoCmd.OpenForm "成本信息"

    '设置客户详细信息子窗体的数据源为r1

End Sub