Public Function Calc_sum_ADV()
    
    
    Dim t As ADODB.Recordset
    Dim cn As ADODB.Connection
    Dim stsql As String
    stsql = "Select * from ADV_Report where Id_pay=" & Forms!ADV_REPORT.Id_pay
    Set cn = New ADODB.Connection
    Set cn = CurrentProject.Connection
    Set t = New ADODB.Recordset
    
    t.Open stsql, cn, adOpenDynamic, adLockOptimistic, adCmdText
     'Set t = db.OpenRecordset("Select * from ADV_Report where Id_pay=" & Forms!ADV_REPORT.Id_pay, dbOpenDynaset, dbSeeChanges) 
    
    If t.RecordCount >  0  Then
        
         'Управление добавлением курса валюты 
        t.MoveFirst
        Do Until t.EOF
            t!Curr_rate_adv = Forms!ADV_REPORT.Curr_rate
            t.Update
            t.MoveNext
        Loop
         'Расчет суммы оплат 
        t.MoveFirst
        Summilo =  0 
        Do Until t.EOF
            If Forms!ADV_REPORT.Currency = t!Curr_adv Then
                Summilo = Summilo + t!Sum_adv
            Else
                Summilo = Summilo + calc_curs(t!Curr_adv & "->" & Forms!ADV_REPORT.Currency, t!Sum_adv, Null,  2 , Forms!ADV_REPORT.Curr_rate)
            End If
            t.MoveNext
        Loop
        Calc_sum_ADV = Round(Summilo,  2 )
    Else
        Calc_sum_ADV = Null
    End If
    cn.Close
    t.Close <--------------------Ошибка
    Set cn = Nothing
    Set t = Nothing
End Function

t.close

cn.close