主题：菜单方案代码

Dim Val As String = RibbonTabs("数据库")("查询信息")("图号")("图号").Text
With CurrentTable
    CurrentTable.Filter  =  "[图号] Like '*" & Val & "*'"
End With

我有一个组合框RibbonTabs("数据库")("查询信息")("列名")

组合框能选出我想要的列名（但我不想光标移动到该列），以上代码怎样改可实现当组合框为空时，按以上代码执行，有字符时，按列名=组合框中字符进行筛选，谢谢