VB + ADO + Excel: правильный запрос на поиск

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

Здравствуйте, 3й день мучаюсь с такой проблемой: VB6 Проблема в следующем:есть файл Excel 2007 файл объемный, примерно 10000 строк и 60 столбцов Нужно организовать поиск данных в нем средствами ADO по всем столбцам. С ADO раньше не работал, поиск юзал, то что нашел - неподходит. тк примеры в основном для поиска определенного значения в определенном столбце, при попытке переделать под поиск по всей таблице либо страшно тормозит либо вылетает с ошибкой "неизвестная ошибка" посредине цикла. Я незнаю как построить запрос нормально, чтоб выдавало все найденые значения. Критична скорость работы Кто-нибудь может помоч?

Решение задачи: «VB + ADO + Excel: правильный запрос на поиск»

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

                            Set clone_rs = Rs.Clone
      'Apply a filter to the clone using the criteria passed in.
      clone_rs.Filter = "state = 'CA' AND city = 'Oakland'"
 
      If clone_rs.EOF Or clone_rs.BOF Then
      'If criteria not found move to EOF; just as ADO's Find
       rs.MoveLast
       rs.MoveNext
      Else
      'If found, move the Recordset's bookmark to the same location as the
      'clone's bookmark.
      rs.Bookmark = clone_rs.Bookmark
      End If
                        