Может я чё не понимаю:а почему не воспользоваться тривиальной Dsum?

Elena Don,
A как Вы определяете верхнюю границу в цикле FOR?(у Вас там коды символов-смените раскладку)
Думаю что-то про RecordCount,который не даст верный результат без обращения к последней записи набора (чего не наблюдается)
По моему одна строчка кода порацинальней будет чем десяток с большим хвостиком

Вот код с правильной раскладкой

strSQL = " SELECT [№маршрута], АС, режим, График, План, Перевозчик, Месяц, [Код режима], [1], [2], [3], [4], [5], [6], [7], " & _
" [8], [9], [10], [11], [12], [13], [14], [15],[16] , [17], [18], [19], [20], [21], [22], [23], [24], [25], [26], [27], [28], [29], [30], [31], ИТОГИ, год, код_м, Перевозчик1 " & _
" FROM dbo.[_Совместная работа ИТОГИ новая графики] " & _
" where dbo.[_Совместная работа ИТОГИ новая графики].[№маршрута] = '" & Поле79 & "' and код_м = " & kod_m & " & _
"ORDER BY График "
Set rstSuppliers = New ADODB.Recordset
rstSuppliers.CursorLocation = adUseClient
rstSuppliers.Open strSQL, CurrentProject.Connection, , adLockOptimistic ' набор записей по маршруту за определенную дату



strSQL1 = "SELECT [Количество графиков], [№Маршрута]FROM dbo.[Перечень маршрутов] WHERE [№Маршрута] = '" & Поле79 & "'"

Set rst = New ADODB.Recordset
rst.Open strSQL1, CurrentProject.Connection, , adLockOptimistic ' определяем количество графиков на маршруте

For x = 1 To rst![Количество графиков] 'цикл по графикам
rstSuppliers.Filter = "График=" & x ' фильтр по графику

If rstSuppliers.RecordCount > 1 Then
ReDim rsRec(rstSuppliers.RecordCount) As Integer

rstSuppliers.MoveFirst
i = 1
Do Until rstSuppliers.EOF
' записываем в массив значение планов по графку

rsRec(i) = rstSuppliers![План]
P = P + rsRec(i)
i = i + 1
rstSuppliers.MoveNext

Loop

Задача состоит в том, чтобы просуммировать план и факт рейсов для машин работавших по одному и тому же графику

Поясните в чем выражается "план и факт" рейсов-в их количестве или объеме перевезенного груза и какова суть работы машин по какому-то графику(что представляет из себя "график")
я смутно подозреваю что надо взглянуть на схему БД и четко уяснить решаемую Вами задачу