No critério da consulta use : "> 0 " sem aspas ou no evento ao abrir formulário/relatório use filtro : DoCmd.ApplyFilter , "[seu campo]>0" Com aspas.
................................................................................. "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos." Michael Jordan