Использование ADODB в Access

Question

Я пытаюсь использовать соединение adodb без доступа к vba, и оно не возвращает мне никаких данных. Думаю, моей проблемой будет соединение, хотя я использую 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

, затем проверьте возвращаемые записи, если есть записи, то проблема в условиях фильтра.

Надеюсь, что это может помочь