dil uyumsuzluğu nedeniyle bende hata verdi ama kodun temel mantığı aşağıdaki gibidir
cbPlaka : açılır kutunun ismi

Private Sub cbPlaka_Change() 'açılır kutu değiştiğinde olayına  yazılacak

Dim txtAd As String

txtAd = " SELECT Liste.Listekod, Liste.Plaka " & _

        " FROM Liste " & _

        " where Liste.Plaka like '*" & cbPlaka.Text & "*' ;"

Me.cbPlaka.RowSource = txtAd

cbPlaka.Dropdown

End Sub