se l'utente sceglie da una combo il valore da immettere come criterio nella select di ricerca, penso che dovresti fare come dice dark. es:

dim campo_di_ricerca as string

campo_di_ricerca=NomeCombo.text

Select campo_di_ricerca from tabella Where campo = filtro_sul_campo

spero di averti aiutato