Set rstTemp2 = CurrentDb.OpenRecordset("select sum(Value) AS Sum_Value from [01#01]where Pr=10 and Val=" & Val & "", dbOpenDynaset).OpenRecordset

Function Cur(Val As Integer) As Double
Dim rstTemp1 As Recordset
Set rstTemp1 = CurrentDb.OpenRecordset("select sum(ValueNom) AS Sum_ValueNom from [01#01] where Pr=10 and Val=" & Val & "", dbOpenDynaset).OpenRecordset
If Round(rstTemp1!Sum_ValueNom,  6 ) >  0  Then
    Cur = Round(rstTemp1!Sum_ValueNom,  6 )
Else
    Cur =  0 
End If
rstTemp1.Close
Set rstTable1 = Nothing
End Function

Dim rstTemp1 As DAO.Recordset