Não consigo colocar no formulário o valor Média de um campo, via VBA

Não consigo colocar no formulário o valor Média de um campo, via VBA
Fiz todos os resumos mais não consigo calcular a Média!

Private Sub Form_Current()

Texto201 = DSum("[valor]", "QryCompensacao")

'''''''Erro Aqui ''''''Texto202 = Dméd???Aqui???("[Valor]", "QryCompensacao") ' Não sei como colocar a função ( Méida )

texto203 = DMin("[Valor]", "QryCompensacao")
texto204 = DMax("[Valor]", "QryCompensacao")

End Sub]

Calcula Certo:
DSum
DMin
DMax
Não sei como calcular a Média D??????

Deu Certo!!! Texto201 = DAvg("[valor]", "QryCompensacao")
Muito obrigado Alexandre.