sipariş formuna "CBCari" bir açılır kutu ekleyip
değiştiğinde olayına aşağıdaki kodu yazıp dener misiniz

Private Sub CBCari_Change()

Dim CBSQL As String

Me.CBCari.RowSource = ""

CBSQL = " SELECT tblCari.CariUnvani " & _

        " FROM tblCari " & _

        " WHERE (((tblCari.CariUnvani) Like '*" & CBCari.Text & "*')) " & _

        " ORDER BY tblCari.CariUnvani;"

Me.CBCari.RowSource = CBSQL

End Sub 

çıkıldığında olayına parametre formundaki gibi bir kod tanılamanız yterli olur sanırım