I have code here but it only populates items in checklistbox.
Dim lst As New List(Of String) From {dtr.GetInt32("fps_pump_id")}
Do
For Each items As String In lst
y = dtr.GetInt32("fps_pump_id")
PumpStation.CheckedListBox1.Items.Add(y & " [" & items & "]")
PumpStation.CheckedListBox1.Items(y).Enabled = False 'this line won't work
Next
x += 1
Loop Until x = ps_table.Rows.Count
dtr.getIn32("fps_pump_id")
is a pre-loaded MySqlDataReader
that I used to fetch data from my local database.