通过代码实现字段动态RowSource功能的问题

做一个进货窗口，数据窗口中产品名称字段的RowSource要根据品类的不同产生不同的RowSource，品类根据窗口右侧的选项按钮单击确定，并在选项按钮的单击事件中查询不同的结果给产品名称字段的RowSource赋值。

代码如下：

Private Sub Option37_Click()
Forms!jh.产品名称.RowSource = "select 原料名称 from 原料 where 分类编码='01';"
Me.Child0.SourceObject = ("表.jh")
Me.Child0.Requery
End Sub

但是不能实现功能，不知道是主体引用不对，还是代码错误，请高手指导！

不甚感激！