Filter рекордсета, поля типа numeric и date - VB

Формулировка задачи:

делаю фильтр так:
для numeric
1) rcd.Filter = "sgdsumm like '" & CStr(Text1.Text) & "'".
он нормально фильтрует, но только, если я значение ввожу целиком. а если ставлю * в конце ('" & CStr(Text1.Text) & "*'"), ругается "Не удается открыть фильтр". Как это исправить?
2) а с датой вообще ничего не получается. посоветуйте, как сделать фильтр по дате, чтобы можно было также не целиком искать, а любое совпадение.
Заранее спасибо за ответ.

Решение задачи: «Filter рекордсета, поля типа numeric и date»

textual
                            Листинг программы 
                        
                            <font color="teal">"sgdsumm like '"</font> & CStr(Text1.Text) & <font color="teal">"*'"</font>.