Dim Sql As String
Dim unvanListesi As String

' TextBox’taki değeri al ve Sql sorgusu için uygun formata getir
unvanListesi = Me.txtUnvanListesi.Value

' Dinamik Sql sorgusunu oluştur
sql = "SELECT UnvanAdi FROM tblUnvanlar WHERE UnvanKodu IN(" & unvanListesi & ")"