Public Sub AddDoorsToListview()
Dim tmp As ListItem
 
    SK_BaseMenuDoors.getListView_Doors.ListItems.Clear
 
    Set colDoors = New Collection
    Set rsTemprecordset = SK_Wrapper.getRecordSetFromDB("SELECT" & _
      "[Door].[Door_ID], [Door].[DoorNumber], [Door].[DoorDescription]," & _
      "[Door].[DoorIsTerminal], [Door].[DoorIsKeyBox] FROM [Door];")
 
While Not rsTemprecordset.EOF
            colDoors.Add CStr(rsTemprecordset.Fields(0)), CStr( _
              rsTemprecordset.Fields(1))
            Set tmp = SK_BaseMenuDoors.getListView_Doors.ListItems.Add(, , _
            rsTemprecordset.Fields(1))
                If rsTemprecordset.Fields(2).ActualSize <> 0 Then
                    tmp.SubItems(1) = rsTemprecordset.Fields(2)
                End If
                    If rsTemprecordset.Fields(3).value = True And _
                      rsTemprecordset.Fields(4).value = False Then
                        tmp.SubItems(2) = SK_BaseMenuRooms.DoorTypes("Terminal")
                        tmp.SubItems(3) = "0"
                    ElseIf rsTemprecordset.Fields(3).value = False And _
                      rsTemprecordset.Fields(4).value = True Then
                            tmp.SubItems(2) = SK_BaseMenuRooms.DoorTypes( _
                            "Keybox")
                            tmp.SubItems(3) = "1"
                    ElseIf rsTemprecordset.Fields(3).value = False And _
                      rsTemprecordset.Fields(4).value = False Then
                            tmp.SubItems(2) = SK_BaseMenuRooms.DoorTypes( _
                            "Normal")
                            tmp.SubItems(3) = "2"
                    End If
            rsTemprecordset.MoveNext
        Wend
 
End Sub

cya
_________
BinaryMember