在Access中使用ADODB

Question

我正在尝试通过访问vba使用adodb连接，并且它不会返回任何数据，我想我的问题是连接，即使我正在使用CurrentProject.Connection。

需要帮助，这是我的代码

Dim cnThisConnect As New ADODB.Connection
Dim rsExpenses As New ADODB.Recordset
Dim sQuery As String

    sQuery = "SELECT  [ShippingSoldPrice] , ShippingPurchaseTaxe FROM Vehicles LEFT JOIN Contacts AS C ON 
    Vehicles.CustomerID = C.ID"
    sQuery = sQuery & " Where " & Me.Filter

     Set cnThisConnect = CurrentProject.Connection

     rsExpenses.Open sQuery, cnThisConnect, adOpenDynamic, adLockOptimistic

    If Not rsExpenses.EOF Then

Answer 1

尝试删除包含where子句的行，可能是问题所在

'sQuery = sQuery & " Where " & Me.Filter

然后检查返回的记录，如果有记录，则问题出在过滤条件中。

希望这会有所帮助