Передача параметра в функцию - VB

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

есть у меня такая функция в главном модуле
Public Function ClearFilter()
Dim col As TrueOleDBGrid80.Column
For Each col In
col.FilterText = ""
Next col
End Function
но она не работает до тех пор, пока вместо этого:
не напишешь вот это:
т.е. надо перед этим указать имя формы.
передаю имя формы так:
ClearFilter(form.name) - тут всё ок, она переходит в функцию.
вопрос, как передать имя формы правильно в функцию?
пыталась так:
fr.TDBGrid1.Columns - не работает
" & fr. & " & TDBGrid1.Columns - тоже на работает. Помогите!!!

Решение задачи: «Передача параметра в функцию»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Function</font> ClearFilter(<font color="blue">ByRef</font> fr <font color="blue">As</font> Form)
<font color="blue">Dim</font> col <font color="blue">As</font> TrueOleDBGrid80.Column
<font color="blue">For</font> <font color="blue">Each</font> col <font color="blue">In</font> fr.TDBGrid1.Columns
col.FilterText = <font color="teal">""</font>
<font color="blue">Next</font> col
<font color="blue">End</font> <font color="blue">Function</font>
                        