Есть такой модуль, его задача найти в записи поле в котором упоминаеться некоторое текстовое выражение (название поля в экселевской таблице, это не база) в поле ниже этого выражения ряд цифровых значений с которыми будет оперировать другая процедура:

Public Function FindCol(rec0 As ADODB.Recordset, FindValue As Variant) As Integer
Do Until z = 60
z = z + 1
rec0.MoveFirst
Do Until rec0.EOF
If rec0.Fields(z).Value = FindValue Then FindCol = z: GoTo done1
rec0.MoveNext
Loop
Loop
done1: z = 0
End Function

Так вот вся беда в том что методом научного тыка получаеться что процедурка находит текстовое выражение в поле только если количество текстовых записей в поле больше числовых иначе ничего!!! если искать числовое значение то ситуация та же, найдет только если числовых записей больше чем текстовых. Выходит что только либо текст либо число!
как с этим справиться? что я делаю неправильно?

и оттуда же когда далее пытаюсь изменить записи в цикле подобным образом:

rec2.Fields(inХ2).Value = outValue
rec2.Update
то же самое происходит записывает либо только текст либо только число
в зависимости от того какие данные в поле превалируют. Помогите пожалуйста!!!