打开tbCompany_info表并对其依据Combo1中的内容进行排序，可是实现过程中总提示至少一个参数未定义，变色的就是出错代码。我怀疑是系统认为 sqlod变量未定义。可是我又发现不了错误，请各位帮忙，希望可以告诉我解决办法

sqlod = "select * from tbCompany_info order by " & Combo1.Text
rs_order.CursorLocation = adUseClient
rs_order.Open sqlod, conn, adOpenStatic, adLockOptimistic
'设置DataGrid1的数据源
Set DataGrid1.DataSource = rs_order
DataGrid1.Refresh