主题：通过菜单打开报表

Dim Val As String = RibbonTabs("生产报表").Groups("产量月报表-日报表").Items("工序").Items("StringToFind").Text
Forms("产量月报表").show()
DataTables("产量月报表").loadFilter =  "工序=  '" & Val & "'"
DataTables("产量月报表").load

以上代码运行不了，具体是哪里出了问题。