Why does this query fail in ADODB.recordset ?

[MrDeej]

I have query this to filter the posts i want to work with, it is called "MAIN ompakkingskø baklager Gemba" and the sql is this:

SELECT [LOK Loksummer].Varenr, [LOK Loksummer].Lokasjon AS Baklager, [LOK Loksummer].[Antall tabletter], Left([lokasjon],2) AS c
FROM [LOK Loksummer]
WHERE ((([LOK Loksummer].Lokasjon) Like "*Gemba*") AND ((Left([lokasjon],2))="01" Or (Left([lokasjon],2))="02" Or (Left([lokasjon],2))="03" Or (Left([lokasjon],2))="04" Or (Left([lokasjon],2))="05" Or (Left([lokasjon],2))="06" Or (Left([lokasjon],2))="07" Or (Left([lokasjon],2))="08" Or (Left([lokasjon],2))="09" Or (Left([lokasjon],2))="10" Or (Left([lokasjon],2))="11" Or (Left([lokasjon],2))="12" Or (Left([lokasjon],2))="13" Or (Left([lokasjon],2))="14" Or (Left([lokasjon],2))="15" Or (Left([lokasjon],2))="16" Or (Left([lokasjon],2))="17" Or (Left([lokasjon],2))="18"));

I always use ADODB.recordset to work with data. Either to insert data in forms or in tables.

When i open the query by clicking on the query it shows exactly the post it is supposed to show, but when i open it with ADODB it gives an error

Dim rst As New ADODB.Recordset
With rst
    .Open "MAIN ompakkingskø baklager Gemba", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
        Do Until .EOF
        MsgBox !baklager
        .MoveNext
        Loop
    .Close
End With
Set rst = Nothing

This DAO is working fine:

Dim rs As dao.Recordset
 
Set rs = CurrentDb.OpenRecordset("MAIN ompakkingskø baklager Gemba")
While Not rs.EOF
MsgBox rs!baklager
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
 

[ADezii]

@MrDeej
Try a change in Syntax, and see what happens:

Dim rst As New ADODB.Recordset
 
With rst
  .Source = "MAIN ompakkingskø baklager Gemba"
  .ActiveConnection = CurrentProject.Connection
  .CursorType = adOpenForwardOnly
  .LockType = adLockReadOnly
    .Open
 
  Do While Not .EOF
    MsgBox !baklager
      .MoveNext
  Loop
End With
 
rst.Close
Set rst = Nothing

What is the Error you are receiving if the previous does not work?

You should also consider modifying part of your WHERE Clause:

AND Left$([Lokasjon],2) In ("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18")