access:filter属性を使う

formのfilter属性＝where句、動的にrecordsetを変更する。
likeも使える、（＊使用）
入力しながら表示するレコードを絞るフォールを作れる。

Me.Filter = "xx like '*" & str & "*'"
Me.FilterOn = True

Hint：filter変更すると、txtboxがないの文字がselectされ、編集しにくい場合、

Private Sub txtInput_Enter()
    txtInput.SelStart = Len(txtInput.Text)
End Sub

にすればOK。（どうでもいいところに時間かかってしまったな、こういう属性があるはずだがみつからなかった。）