Dim Sql As String
sql = "select distinct bosaltmalimani from navlundata order by bosaltmalimani"
Me.listbliman.RowSource = sql
Bu kodu kriterleri temizle butonunun altına yapıştırdım ve her kriteri temizlediğimde seçenekler de geri geliyor. İkinize de teşekkürlerimi bir borç bilirim çok yardımcı oldunuz.