Am besten Du erstellst einen Datacontext von Deiner Datenbank.
Dann kannst Du einfach über
Code:
Dim DB as MyDataContext 'Der Name des DataContext
Dim myID = (From i In DB.Tabelle 'Tabelle durch den Namen Deiner Tabelle ersetzen
Where i.ID = 9
Select i.ID).First.ToString
die ID aus der Datenbank holen.
Baum-Darstellung