[Programmer-VB] listview error "invalid use of null"

[Agus Sudana]

dear kakak2 VB'ers,
agar listview juga menampilkan record yg null dari database, bagaimana ya..?
berikut potongan script'nya, errornya selalu mengarah ke subitem(2). setelah di 
tracking, record field 2 di database ada yg null
 If rs.RecordCount > 0 Then
 rs.MoveFirst
  Do While Not rs.EOF
   Set xListItem = lvDataAbsent.ListItems.Add(, , rs(0))
   xListItem.SubItems(1) = rs(1)
   xListItem.SubItems(2) = rs(2)
   rs.MoveNext
  Loop

end if

need advice,

salam,

Agus Sudana