[Resolvido]Tipo de dados incorrecto na expressão de criterios

Amigos,
Ainda sou muito "verdinho" em VBA criei o seguinte codigo:

If DCount("*", "qry_prod_rej", "[Rej] ='10'") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Rej"
Else
Exit Sub
End If
End Sub

Basicamente o que este codigo faz é verificar na consulta se o campo "Rej" contem ou nao o numero 10 e se o encotrar executa a macro "qry_envio_mai_Rej".
Quando executo o moduloaparece o erro "tipo de dados incorrecto na expressão de criterios", nao percebeo onde está a falha alguem me pode ajudar?

Tente assim:

If DCount("*", "qry_prod_rej", "[Rej] = 10") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Rej"
Else
Exit Sub
End If
End Sub

As aspas simples são usadas para texto.

Ok foi isso mesmo abraço e obrigado.