As an extension of the answers by Richard and Kschuler, the easy way to do this is something like this.
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