Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
    With Item
        If .CellText(3) <> "" And .CellText(3) > 0 Then
           .CellText(3) = Format$(sevGrid1.Recordset.Fields(3) / 100, "0.00%")
        End If
    End With
End Sub