为什么不能执行帅选

Question

Private Sub Combo2_GotFocus()
      Call openconn
       Dim rs As New ADODB.Recordset
       rs.Open "select * from lxmc where trim(（lxmc.基层）) = '" + Combo1 + "', Conn, adOpenKeyset, adLockOptimistic
       Do While Not rs.EOF
       Combo2.AddItem rs.Fields("路线名称").Value  '这样就添加到组合框
       rs.MoveNext
          Loop
      rs.Close
      Set rs = Nothing
End Sub
我的想法是利用combo1的值对路线名称进行帅选，符合基层=combo1的路线出现在combo2中。谢谢！
rs.Open这句话不知道错在哪里？

Answer 1

你的单引号是在中文输入法打开下输入的还是关闭状态下输入的？要在关闭状态下输入的才行。
还有，我觉得where 后面的条件要用括号括起来。具体如下：
rs.Open "select * from lxmc where （trim(（lxmc.基层）) = '" + Combo1 + "')", Conn, adOpenKeyset,

Answer 2

      rs.Open "select * from lxmc where trim(lxmc.基层) = '" + Combo1 + "', Conn, adOpenKeyset, adLockOptimistic 
用这一句

Answer 3

trim(（lxmc.基层）) 外面的括号你用的是中文的括号了,改为trim(lxmc.基层)就行

Answer 4

rs.Open "select * from lxmc where trim([lxmc.基层]) = '" & Combo1.text & "'", Conn, adOpenKeyset, adLockOptimistic 这样试试！

Answer 5

rs.Open "select * from lxmc where 基层 = '" & trim(Combo1) & "', Conn, adOpenKeyset, adLockOptimistic

Answer 6

rs.Open "select * from lxmc where 基层 = '" & trim(Combo1) & "', Conn, adOpenKeyset, adLockOptimistic