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

运行时总是有问题啊