Got it
Dim drcodes As SqlCeDataReader = cmdcodes.ExecuteReader
Me.ListView1.Clear()
ListView1.Activation = ItemActivation.OneClick
ListView1.Columns.Add("Link", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Description", 200, HorizontalAlignment.Left)...