Listboxta arama acill yardımm lütfen

Arkadaslar acil yardım lazım vb.net de sql baglantılı listboxı textboxdan search yaptırmak istiyorm
bu aşagıdaki kod datasource olmadan yapılıyor bunu datasource varken nasıl yapabılırm ?
dim items() as string ={"a","b"}

ListBox1.Items.Clear()
ListBox1.Items.AddRange(items.Where(Function(s) s Like TextBox1.Text & "*").ToArray)