Function Persent_Class(strPARAM As String, dblPARAM As Variant) As Variant
Dim C1 As String, C2 As String, C3 As String, C4 As String, C5 As String
Dim rst As DAO.Recordset
 

If IsNull(dblPARAM) Or dblPARAM = 0 Then
     Persent_Class = Null
     Exit Function
End If
 
Set rst = CurrentDb.OpenRecordset("select * from tbl_Class where ID='" & strPARAM & "'")
With rst
  C1 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_I")
  C2 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_II")
  C3 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_III")
  C4 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_IV")
  C5 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_V")

End With
 
If Eval(C1) Then
    Persent_Class = "I"
ElseIf Eval(C2) Then
    Persent_Class = "II"
ElseIf Eval(C3) Then
    Persent_Class = "III"
ElseIf Eval(C4) Then
    Persent_Class = "IV"
ElseIf Eval(C5) Then
    Persent_Class = "V"
End If
 
rst.Close
Set rst = Nothing
End Function