我要做一个这样的表单


其中click命令如下
x=alltrim()
if 辽宁工程技术大学"
select* from 全国大学生广告艺术大赛 where xx="辽宁工程技术大学"
endif
if empty(x)
messagebox('请选择类别！',48,'操作失败')

else
select all from 全国大学生广告艺术大赛,比赛参与院系，数模省赛获奖名单 where 比赛参与院系.学院=alltrim() and 比赛参与院系.参赛项目=alltrim() and 日期=date(alltrim())  
use



endif
thisform.refresh




错误窗口如图

select all from 全国大学生广告艺术大赛,比赛参与院系，数模省赛获奖名单 where 比赛参与院系.学院=alltrim();
比赛参与院系.参赛项目=alltrim() and 日期=date alltrim()


是这个有问题吗？？？

如果日期选择控件用combo怎么进行查询？？？能不能给出完整代码？？

怎么利用输入的值查询？？？