Excelから一部が一致するデータを抽出するには？

あつ 2002-08-08 22:23:44 No: 104657

現在Excelからデータを検索するプログラムを作っています。
現在 rs.Openで指定したシートのデータをrsに入れ、

rs.Filter = "入力 Like '"&Text1.text&"*' "

として、入力の中に"おはよう"という項目がある時、Text1.Textの内容が
"おはよ"でもデータを抽出できるのですが、Text1.Textの内容が"おはようござ"ではデータを抽出できません。
Text1.Textの中に含まれる単語を探しだしたいのですが（Text1と入力の関係を逆）、rs.Filterとは別の方法でも構わないので、よろしくお願いします。