Tables("代理_Table1").filter ="[guanlian_daili] =" & cbo_Dailimingcheng.text
改为
Tables("代理_Table1").filter ="[guanlian_daili] = " & cint(cbo_Dailimingcheng.text)
或
Tables("代理_Table1").filter ="[guanlian_daili] = " & val(cbo_Dailimingcheng.text)
试试看