Функция ADODB.Recordset.GetRows передаёт в массив не все значения! - VB

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

Есть процедура на VBA в задачу, которой входит считать большой объём информации (более 10 тыс. строк) с листа MSExcel в массив:

Public Sub MassPSD3()                                                                           '   Считать все строки из обеспеченности ПСД
Dim s As String
    Dim i As Integer
        If cADO.State <> adStateOpen Then                                                           '   Еслисоединенияещёнет, то
        sCon = sCon1 & sCon2 & ";"                                                              '   Сформироватьстрокуподключения
        cADO.ConnectionString = sCon
        cADO.Open                                                                               '   Открываемфайл
    End If
    s = "SELECT * FROM [" & sHN & "$" & sDiap & "]"                                             '   SQL запрос
    rs.Open s, cADO, Options:=adCmdText                                                         '   Передаем SQL комманду
    If Not (rs.EOF Or rs.BOF) Then                                                              '   Еслиданныеесть, то
        mas3 = rs.GetRows
    End If
    rs.Close
    cADO.Close
'    Set rs = Nothing
'    Set cADO = Nothing
    Debug.Print "mas3(0,7730) = " & mas3(0, 7730)
    Debug.Print "mas3(17,7730) = " & mas3(17, 7730)
    Debug.Print "mas3(18,7730) = " & mas3(18, 7730)
        mas3 = TransposeArray(mas3)                                                                 '   Переворачиваеммассив
End Sub

Проблема в том, что в массив попадают значения не всех ячеек. Например, по адресу mas3(18,7730) ожидается значение «РД в наличии 18.08.2017», но реально там «NULL»:
Подскажите, как решить проблему?
Исходник:

Решение задачи: «Функция ADODB.Recordset.GetRows передаёт в массив не все значения!»

textual
                            Листинг программы 
                        
                            connection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" +pppath+"; Persist Security Info=False;Extended Properties='Excel 8.0;HDR=YES;IMEX=1';");