DUVIDA EM VENCIMENTO

MARCONDES 04/04/2011 09:44:20
#370320

Olá

Crie em um Label e utilize o código abaixo

On Error Resume Next
DataGrid.Col = 3
if cdate(DataGrid.Text) <= date then

Label1.caption = [Ô]VENCEU[Ô]

else

end if