VB6 + .accbd. Как получить в переменную значение поля из БД?

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

Добрый день. Тема не нова, однако ответа толком не увидел. Ранее реализовывал работу с access-базой данных .accdb посредством sql-запросов (помогла вот эта тема) А нынче появился вопрос, казалось бы, и простой: получить в переменные значения нужной записи из БД и сравнить их с введенными пользователем в текстовых полях. И тут я чето загрустил... 1)приложение написано на VB 6, не могу пока разобраться как реализовать изложенный выше метод на VB6. 2)наверняка же есть попроще способы работать с таблицей, чем изложенный выше? Можно ли как-то подключить и работать базу данных с помощью, например, контрола Data? Верней подключить то может и можно, а как потом из подключенной таблицы получать значения? Если можно пример кода - как получить из подключенной таблицы в переменную значение поля "RefNo" где "User=4" и "№Rec=12345"? Спасибо.

Решение задачи: «VB6 + .accbd. Как получить в переменную значение поля из БД?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function accdbADO(path, tblName, fldName, strFilter)
'Функция получает значение поля fldName для заданных фильтров
'path - путь к БД
'tblName- имя таблицы
'fldName - имя поля, значение которого надо получить
'strFilter - строка фильтра
    Dim con As Object, rst As Object, s
    Set con = CreateObject("adodb.connection")
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & path
    s="select [" & fldName & "] from [" & tblName & "] where " & strFilter    
    accdbADO = con.Execute(s).Fields(0)
End Function