With ThisForm.Grade .RecordSource = "" Select Codigo, Qtdade, Valor From Teste Into Cursor cTeste .RecordSource = "cTeste" .Column1.ControlSource = "Codigo" .Column2.ControlSource = "Qtdade" .Column3.ControlSource = "Valor" .Column4.ControlSource = "Round(Qtdade * Valor,2)" EndWithA coluna 4, por conter uma expressão, está alinhando os valores a esquerda, ao invés de deixá-los alinhados a direita (padrão do campo numérico).