itmX.SubItems(i) = IIf(IsNull(rs.Fields(i).Value), vbNullString, rs.Fields(i).Value)