关于dataCombo

[leonardo_Lynn]

Private Sub dbcOrderNo_Click(Area As Integer)
Dim strQuery As String
dcbOrderNo.BoundText = "10001"
strQuery = "SELECT * FROM Customers,Orders WHERE" & _
           "Customers.客户号=Orders.客户号" & _
           "And Customers.客户号 =" & dbcOrderNo.BoundText
With AdoCust
    .RecordSource = strQuery
    .Refresh
End With
End Sub

AdoData控件与后台数据库成功连接，此处报错为"from子句语法错误"单击dataCombo时错误指向.Refresh处。本人初学，请教这是为什么？怎样解决这个问题。

[饮水需思源]

引号之间加空格
strQuery = " SELECT * FROM Customers,Orders WHERE " & _
" Customers.客户号=Orders.客户号 " & _
" And Customers.客户号 ='" & dbcOrderNo.BoundText &"'"

[leonardo_Lynn]

Private Sub Command1_Click()
End
End Sub

Private Sub dcbOrderNo_Click(Area As Integer)
Dim strQuery As String
strQuery = " SELECT * FROM Customers , Orders WHERE " & _
           " Customers.客户号=Orders.客户号 " & _
           " And Customers.客户号 = " & dcbOrderNo.BoundText
With AdoCust
    .RecordSource = strQuery
    .Refresh
End With
End Sub

改了下，现在报：语法错误（操作符丢失）在查询表达式‘Customers.客户号=Orders.客户号 And Customers.客户号='中

[饮水需思源]

strQuery = " SELECT * FROM Customers,Orders WHERE " & _
" Customers.客户号=Orders.客户号 " & _
" And Customers.客户号 ='10001'"

[leonardo_Lynn]

虽然不报错了，但我想要的功能没要到，不过还是谢谢了，我刚刚在书上找到了一个好的解决这个问题的方法。