sefer bey keşke tablo ve sorgularınızda kayıtta olsaydı? en azından kodların doğru çalışıp çalışmadığını anlardık
çerçeve8 güncelleme sonrası olayı

Private Sub Çerçeve8_AfterUpdate()

If Me.Çerçeve8 = 1 Then

Me.Açılan_Kutu0.RowSource = "sorgu1"

Else

Me.Açılan_Kutu0.RowSource = "sorgu2"

End If

End Sub