Dim db As ADODB.Connection 'везде пишут Database, но у меня это не проходит
        Dim rs As ADODB.Recordset
        Dim file_mdb As String
        Dim path_mdb As String
        Dim sSQL As String

        db = New ADODB.Connection
        rs = New ADODB.Recordset
        file_mdb = "c:\db1.mdb"
        path_mdb = "c:\"
        db.ConnectionString = "DBQ=" & file_mdb & ";DRIVER={Microsoft Access Driver (*.mdb)};DefaultDir=" & path_mdb & ";"
        db.Open()

        rs.Open("Таблица1", db, , , )

        'здесь строите строку запроса
        sSQL = "SELECT * FROM Таблица1 WHERE Поле1=11;" 'таблица есть, запрос проверял в Access
        
        rs = db.OpenRecordset(sSQL) ]'здесь дебаггер ругается

        Do Until rs.EOF
            Debug.Print(rs.Fields("имя поля"))
            rs.MoveNext()
        Loop

        rs.Close()
        db.Close()
        rs = Nothing
        db = Nothing