C#

With li.SubItems .Add(1).Text = Dr(1) .Add(2).Text = If(IsDBNull(Dr(2), string.Empty, Dr(2)) .Add(3).Text = Dr(3) .Add(3).Text = Dr(3) .Add(4).Text = Dr(4) .Add(5).Text = Dr(5) .Add(6).Text = Dr(6) .Add(7).Text = Dr(7) .Add(8).Text = Dr(8) .Add(9).Text = Dr(9) .Add(10).Text = Dr(10) 'MsgBox(IsDBNull(Dr(9))) End With