MSA 2003. Речь идёт об открытии ADO рекордсета, в режиме отладки при пошаговом исполнении всё ОК, как только в обычном режиме обращаешься к этой процедуре, MSA выдаёт сообщение, что в БД обнаружена ошибка и закрывается, что за хрень?

Public Sub RaschitatItogSummu()
Dim mes As String

mes = "#" & "3" & "/" & "1" & "/" & "2007" & "#" ' это для примера, значение mes будет меняться
On Error GoTo Err_RaschitatItogSummu

Dim cnCurrent As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String

Set cnCurrent = CurrentProject.Connection
Set rst = New ADODB.Recordset

strSQL = "SELECT quИтоговыеСуммыПоМесяцам.Сумма " & _
"FROM quИтоговыеСуммыПоМесяцам " & _
"WHERE " & " quИтоговыеСуммыПоМесяцам.КодДоговора " & " = " & Forms![Главная]![пфФирмы].Form![КодДоговора] & _
" AND " & " quИтоговыеСуммыПоМесяцам.Месяц " & " = " & mes

rst.Open strSQL, cnCurrent, adOpenDynamic, 'Вот здесь и вылетает
'Forms![Главная]![полеИтоговаяСуммаSQL] = rst!Сумма

rst.Close
cnCurrent.Close
Set rst = Nothing
Set cnCurrent = Nothing

Exit_RaschitatItogSummu:
Exit Sub

Err_RaschitatItogSummu:
MsgBox Err.Description
Resume Exit_RaschitatItogSummu

End Sub

На самом деле, проблема, как выяснилось, вот здесь Forms![Главная]![полеИтоговаяСуммаSQL] = rst!Сумма, именно при присвоении свободному полю формы значения rst!Сумма. Хотя почему это не работает непонятно.

Null здесь не бывает, а почему тогда в режиме отладки работает?

Видмо действительно rst возвращает NULL , виноват

А еще рекордсет может быть пустым...