With ThisForm.ole_listview.listitems .Clear Select mytable Scan llvw_row = .ADD(,,RECNO()) llvw_row.ForeColor = COLOR_BLACK && No Error llvw_row.BackColor = COLOR_GRAY && Error EndScan EndWith