Работа с БД MS Access и ошибка "object variable or with block variable not set" - VBA

Формулировка задачи:

В источниках данных ODBC есть такая штука "База данных MS Access", и назначена ей база "D:\БД СПМК-73.mdb" если делать обычный запрос из excel то все работает, могу получить нужный запрос Но мне необходимо обработать полученные данные. Пишу следующее:

  Dim qSql As String
  Dim cn As New ADODB.Connection 
  Dim rs As ADODB.Recordset
 
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=База данных MS Access"
  
cn.Open
rs.Open "SELECT * FROM Spisok", cn
 
rs.Close
cn.Close

на строке 9 выдает ошибка "object variable or with block variable not set" я начинающий, не могу понять что не так

Решение задачи: «Работа с БД MS Access и ошибка "object variable or with block variable not set"»

textual
                            Листинг программы 
                        
                            rs.Open "SELECT * FROM Spisok", cn,3,3