所有参数都齐全了，出现操作符丢失，如图所示，这是什么原因？

Question

Private Sub Combo4_Click()Dim dbRecordset As New ADODB.RecordsetdbRecordset.Open "Select L1值 from 头部漏斗 where 带宽=" & 带宽 & " and 滚筒直径=" & xlgtzj & " and 头部漏斗类型 = '" & Combo4.Text & "'", db, 1, 3Do While Not dbRecordset.EOFCombo5.AddItem dbRecordset.Fields("L1值") & ""dbRecordset.MoveNextLoopdbRecordset.CloseSet dbRecordset = NothingCombo5.ListIndex = 0End SubCombo5.ListIndex = 0 编译时提示无效属性

Answer 1

错误在ModPublic模块中的GetDBByOpenstr函数（或过程）
不过最有价值的是 错误描述：“操作符丢失”，说明你的SQL语句连接不对，致使解析
时候找不到Select Update Insert等操作符，找这些关键字附近
是否有代码造成SQL语句中断，比如 少个 &
看代码是VB6的规范（可能是其他Basic编译工具），我没见过VB6会提示到模块 呵呵

Answer 2

第一个问题：Combo5.ListIndex = 0，这样使用时，一定要先判断Combo5.ListCount>0才可
第二个问题，语法结构是没有问题的，要检查确定两点：
1、确认语句中所用的字段名和表名是否书写正确且存在与表中
2、确认是否按数据表对应的数据类型格式进行书写，如数值型无需加单引号，字符型需加单引号等。

Answer 3

Combo5.ListIndex = 0 编译时提示无效属性值
如果出现这个情况就是没有添加进去值,你调试一下,可能没有查到你要的数据