Ferreira Filho

Olá, boa tarde a todos. Preciso da ajuda de vocês para resolver a seguinte questão: Criei a consulta MencaoCons SELECT dados.Post_Grad, dados.Nome, dados.Idt, dados.Dta_Nasc, dados.Corrida, DateDiff("yyyy",[Dta_Nasc],Now())+Int(Format(Now(),"mmdd")<Format([Dta_Nasc],"mmdd")) AS Idade; Men(Idade,Corrida) AS Mencao FROM dados; Testei a seguinte função: Function Men(Idade As Integer, Corrida As Integer) As String If (Idade < 20) Then If (Corrida < 2700) Then Mencao = "I" ElseIf (Corrida < 2800) Then Mencao = "R" ElseIf (Corrida < 3100) Then Mencao = "B" ElseIf (Corrida < 3200) Then Mencao = "MB" ElseIf (Corrida > 3199) Then Mencao = "E" End If End If If (Idade > 19) Then If (Corrida < 2750) Then Mencao = "I" ElseIf (Corrida < 2850) Then Mencao = "R" ElseIf (Corrida < 3150) Then Mencao = "B" ElseIf (Corrida < 3250) Then Mencao = "MB" ElseIf (Corrida > 3249) Then Mencao = "E" End If End If End Function Na consulta, apenas o campo Mecao não está retornando. Alguém pode me ajudar pois não sei onde errei, ou se tem outra maneira de resolver . Desde já agradeço!