вместо преобразования всего DataRow
объекта в строку, получите значение поля из этой строки:
Dim brngname As String = Convert.ToString(dt.Rows(i).Item("KodeBarang"))
names
список представляется избыточным:
Dim a As New ClsKoneksi
Dim query As String
query = "SELECT KodeBarang FROM Barang"
dt = a.executequerydata(query)
For i = 0 To dt.Rows.Count() - 1
BARANGLIST.Items.Add(dt.Rows(i).Item("KodeBarang"))
Next