这里单行编辑框怎么不能用阿？？？？

Question

Private  Sub  Command1_Click()  
Dim  cn  As  New  ADODB.Connection  
Dim  ff  As  New  ADODB.Recordset  
Dim  aa  As  String  
aa  =  Text1.Text  
 
q3  =  "SELECT  "  &  aa  &  "<=I类  AS  d11,"  &  aa  &  ">I类  and  "  &  aa  &  "<=II类  AS  d21,  "  &  aa  &  ">II类  and  "  &  aa  &  "<=III类  AS  d31,"  &  aa  &  ">III类  and  "  &  aa  &  "<=IV类  AS  d41,"  &  aa  &  ">IV类  as  d51  FROM  aaa  where  项目编号  =  3"  
cn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=c:\ss.mdb;Persist  Security  Info=False"  
ff.Open  q3,  cn,  adOpenDynamic,  adLockOptimistic,  1  
 
Do  While  Not  ff.EOF  
If  ff("d11")  <  0  Then  
j  =  "I类"  
Exit  Do  
End  If  
 
If  ff("d21")  <  0  Then  
j  =  "II类"  
Exit  Do  
End  If  
 
If  ff("d31")  <  0  Then  
j  =  "III类"  
Exit  Do  
End  If  
 
If  ff("d41")  <  0  Then  
j  =  "IV类"  
Exit  Do  
End  If  
 
If  ff("d51")  <  0  Then  
j  =  "V类"  
Exit  Do  
End  If  
 
 
 
ff.MoveNext  
Exit  Do  
Loop  
MsgBox  j  
 
End  Sub  
 
 
#########运行此程序，ff.Open  q3,  cn,  adOpenDynamic,  adLockOptimistic,  1    说该行又错误！！  
表如下：  
项目编号    项目名称    I类      ii类    iii类    iv类    v类  
3                      ##              3          6          9          15          20  
......  
 
#####表是用access03做的

Answer 1

这跟单行编辑器有什么关系？
将你的SQL语句输出来，到数据库的查询分析器里执行，确定是不是SQL语句的错误。╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯

Answer 2

SELECT  "  &  aa  &  "<=I类  AS  d11 ?
=============================================
不是你的字段名古怪就是SQL语法错误，那是where条件吧？

Answer 3

xx<=xxx
---------
拆开来写:
xx=xxx or xx<xxx

Answer 4

不是 sql语句的错误 如果我改成 这样 即 aa  =  Text1.Text 改成  aa = InputBox("输入参数", "cs")  就对了 可是我想用单行编辑框 
 

Answer 5

把P3打印到立即窗口(按Ctrl+G可以打开立即窗口),贴出来看看......
q3 = "SELECT ......"Debug.Print q3

Answer 6

I类,II类,III类,IV类是字符类型的话,查询语句得改一下(在AA两边加上两个单引号):q3 = "SELECT '" & aa & "'<=I类 AS d11,'" & aa & "'>I类 and '" & aa & "'<=II类 AS d21, '" & aa & "'>II类 and '" & aa & "'<=III类 AS d31,'" & aa & "'>III类 and '" & aa & "'<=IV类 AS d41,'" & aa & "'>IV类 as d51 FROM aaa where 项目编号 = 3"