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

Question

Private Sub Combo4_Click()
Dim dbRecordset As New ADODB.Recordset
dbRecordset.Open "Select L1值 from 头部漏斗 where 带宽=" & 带宽 & " and 滚筒直径=" & xlgtzj & " and 头部漏斗类型 = '" & Combo4.Text & "'", db, 1, 3
Do While Not dbRecordset.EOF
Combo5.AddItem dbRecordset.Fields("L1值") & ""
dbRecordset.MoveNext
Loop
dbRecordset.Close
Set dbRecordset = Nothing
Combo5.ListIndex = 0
End Sub

Combo5.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 编译时提示无效属性值如果出现这个情况就是没有添加进去值,你调试一下,可能没有查到你要的数据