为什么小弟我一添加这段代码,程序就会没有响应

为什么我一添加这段代码,程序就会没有响应
Private   Sub   Combo1_Click()
SSTab1.Tab   =   0
cha   =   "Select   *   from   项目管理表   where   PROJ_TYPE= "   &   Combo1.Text   &   "   order   by   id "
Call   GridShow(1,   cha)

End   Sub


combo1我定义了四项
        Combo1.List(0)   =   "国际级 "
        Combo1.List(1)   =   "国家级 "
        Combo1.List(2)   =   "省市级 "
        Combo1.List(3)   =   "企业合作 "

gridshow(1,cha)
是mshflexgrid显示的函数
数字1表示,显示第一页
cha是字符串

运行时,只要我选择combobox其中一项,程序就没有响应,为什么呢

[解决办法]
你单步调试一下，看看循环那里是否有问题

另外
"Select * from 项目管理表 where PROJ_TYPE= " & Combo1.Text & " order by id "
改为
"Select * from 项目管理表 where PROJ_TYPE= ' " & Combo1.Text & " ' order by id "
试试