Вывод результата VBA запроса в поле формы

Private Sub Рассчитать_Click()
 
    On Error Resume Next
' Dim sQ As String
Dim rst As DAO.Recordset
Dim strSql As String
a = Forms!Форма1.Код_услуги
b = Forms!Форма1.Код_изделия
strSql = " SELECT Прайс.Цена_за_ед" & _
" FROM Услуга INNER JOIN (Изделие INNER JOIN Прайс ON Изделие.Код_изделия=Прайс.Код_изделия) ON Услуга.Код_услуги = Прайс.Код_услуги" & _
" WHERE (((Услуга.Код_услуги) = " & a & ") And ((Изделие.Код_изделия) = " & b & ") And ((Прайс.Код_изделия)=Изделие.Код_изделия) And ((Прайс.Код_услуги)=Услуга.Код_услуги))"
Set rst = CurrentDb.OpenRecordset(strSql)
Forms!Форма1.Сумма = rst
Set rst = Nothing
End Sub

Private Sub Кнопка0_Click()
  Dim strSql As String
  strSql = "SELECT Вопросы.Вопрос FROM Вопросы" & _
" WHERE (((Вопросы.Код)= " & Forms![Генератор Вопросов].КодВопроса & " ))"
Forms![Генератор Вопросов]!Вопрос = CurrentDb.OpenRecordset(strSql).Fields(0)
End Sub

Private Sub Report_Activate()
Dim MyPatients As Database
Dim MSEK_ALL As New ADODB.Recordset
Dim oddescription As String
Dim osdescription As String
Dim msg As String
'On Error Resume Next
 
oddescription = ""
osdescription = ""
   MSEK_ALL.Open "qry_Patients_DescriptionALL", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   'Проверяем ошибки и выводим сообщение
   If Err <> 0 Then
   msg = "Ошибка при создании набора данных:" & vbCrLf
   msg = msg & "Ошибка: " & Err & vbCrLf
   msg = msg & "Описание: " & Err.Description
   MsgBox msg
   Exit Sub
   End If
   
   If MSEK_ALL!desc_eye_OD Or Not IsNull(MSEK_ALL!desc_eye_OD) Then
     oddescription = oddescription & "Око " & MSEK_ALL!desc_eye_OD
   End If
   
   If MSEK_ALL!Position_eye_OD <> "" Or Not IsNull(MSEK_ALL!Position_eye_OD) Then
     oddescription = oddescription & ", положення " & MSEK_ALL!Position_eye_OD
   End If
 
   If MSEK_ALL!Eyelids_OD <> "" Or Not IsNull(MSEK_ALL!Eyelids_OD) Then
     oddescription = oddescription & ", повіки " & MSEK_ALL!Eyelids_OD
   End If
 Me.txt_description_eye_OD.Value = oddescription
End Sub

Public function Func_description_eye_OD()
Dim MyPatients As Database
Dim MSEK_ALL As New ADODB.Recordset
Dim oddescription As String
Dim osdescription As String
Dim msg As String
'On Error Resume Next
 
oddescription = ""
osdescription = ""
   MSEK_ALL.Open "qry_Patients_DescriptionALL", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   'Проверяем ошибки и выводим сообщение
   If Err <> 0 Then
   msg = "Ошибка при создании набора данных:" & vbCrLf
   msg = msg & "Ошибка: " & Err & vbCrLf
   msg = msg & "Описание: " & Err.Description
   MsgBox msg
   Exit Sub
   End If
   
   If MSEK_ALL!desc_eye_OD Or Not IsNull(MSEK_ALL!desc_eye_OD) Then
     oddescription = oddescription & "Око " & MSEK_ALL!desc_eye_OD
   End If
   
   If MSEK_ALL!Position_eye_OD <> "" Or Not IsNull(MSEK_ALL!Position_eye_OD) Then
     oddescription = oddescription & ", положення " & MSEK_ALL!Position_eye_OD
   End If
 
   If MSEK_ALL!Eyelids_OD <> "" Or Not IsNull(MSEK_ALL!Eyelids_OD) Then
     oddescription = oddescription & ", повіки " & MSEK_ALL!Eyelids_OD
   End If
   Func_description_eye_OD  = oddescription
End Function

=Func_description_eye_OD()

MSEK_ALL.Open "qry_Patients_DescriptionALL", CurrentProject.Connection, adOpenKeyset, adLockOptimistic