Запрос на выборку из таблицы Access - VB

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

Доброго времени суток.
Имеем:
1. Таблицу TableXXX в БД Access
2. Несколько полей в этой таблице с ключевым полем, INT
3. Одно поле Searching - Строка!
Задача:
Из кода создать запрос на выборку значения поля Searching если знаем ключ, например 5.
И результат записать в строковую переменную S!
Спасибо!

Решение задачи: «Запрос на выборку из таблицы Access»

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

                            <font color="blue">Dim</font> rst <font color="blue">as</font> Recordset <font color="00AA00">' Нужно определить DAO или ADO</font>
<font color="blue">Dim</font> dbs <font color="blue">as</font> Database
<font color="blue">Dim</font> s
<font color="blue">Set</font> dbs= <font color="00AA00">' Здесь определяется БД</font>
<font color="blue">Set</font> rst=dbs.OpenRecordset(<font color="teal">"SELECT Searching From TableXXX WHERE Int=5"</font>)
<font color="blue">If</font> rst.RecordCount><font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
  rst.moveFirst
  s=rst(<font color="teal">"Searching"</font>)
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Set</font> rst=<font color="blue">Nothing</font>
                        