Kod:
Do While Not rs.EOF
Set lstview = TBL_SIPRS.ListView1.ListItems.Add(, , IIf(IsNull(rs("Cari_Kod").Value) = True, " ", rs("Cari_Kod").Value))
lstview.SubItems(1) = IIf(IsNull(rs("Siparis_Tarihi").Value) = True, " ", rs("Siparis_Tarihi").Value)
lstview.SubItems(2) = IIf(IsNull(rs("Termin_Tarihi").Value) = True, " ", rs("Termin_Tarihi").Value)
rs.MoveNext
Loop