Eğer sorgu2 den alınıyorsa resimdeki gibi olabilir.
Yani listbox sorgu2 den alıyorsa Sql kısmına sorgu2 yazılır sorgu1 den alınıyorsa sorgu1 yazılır bu şekilde listbox ve combobox bağlantılı gibi bişey olur.

Option Compare Database



Const Sql As String = "SELECT distinct seviye FROM sorgu2"



Private Sub Form_Load()

    kutu

End Sub



Private Sub Komut4_Click()

    Liste0.Requery

    kutu

End Sub



Sub kutu()

    Me.Açılan_Kutu5.RowSource = sql

End Sub