Il problema č tutto qui:
Codice:
lsbSubCat.Items.Add(New MyClass1(read("SubCat"), read("Id").ToString, read("IDC").ToString))
VB si aspetta di trovare, come parametri, (string, long, long), mentre tu gli dai (string, string, string).
Ecco la soluzione:
Codice:
lsbSubCat.Items.Add(New MyClass1(read("SubCat"), read("Id"), read("IDC")))