Maar 2 kolommen zichtbaar in LISTVIEW

[Rudi Rombouts]

Hallo,

Met volgende CODE vul ik een LISTVIEW (is me zelf gelukt ) , ik heb 2 kolommen, doch deze worden steeds terug naast elkaar geplaatst. Welke eigenschap moet ik instellen zodat deze kolom maar een keer zichtbaar is of waar staat er een fout in mijn code
reeds bedankt voor een antwoordje
Rudi

Private Sub Form_Load()

    Set dbs = OpenDatabase(fnPadDatabase)
    strSQL = "SELECT * FROM TblInstellingen where naamsector = '" & FrmNaamSector.CombNaamSector.Text & "'"
      Set rst = dbs.OpenRecordset(strSQL)
      Do Until rst.EOF
          
    Dim itmx As ListItem
    Dim colx As ColumnHeader
    
    'kolommen en titel toevoegen
    Set colx = ListView1.ColumnHeaders.Add(, , "NaamInstelling", 3000)
    Set colx = ListView1.ColumnHeaders.Add(, , "Kelder-JPG", 1000)
     
    'kolommen vullen
    Set itmx = ListView1.ListItems.Add(, , rst!NaamInstelling)
    itmx.SubItems(1) = rst!KelderJaNee
    
    ListView1.View = lvwReport

    rst.MoveNext

  Loop
  rst.Close
  dbs.Close

End Sub