Присвоение результата SQL запроса переменной в VBA

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

Помогите новичку.
Написал SQL запрос
SELECT max(InvoiceNumber)
FROM Invoices
WHERE Invoices.TypeCash=Yes;
который выбирает из таблицы число.
Как присвоить это число переменной в процедуре написанной на VBA?
Заранее спасибо

Решение задачи: «Присвоение результата SQL запроса переменной в VBA»

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

                            <font size="2"><font color="blue">Public</font> <font color="blue">Sub</font> Test()
    <font color="blue">Dim</font> CnDB <font color="blue">As</font> <font color="blue">New</font> ADODB.Connection
    <font color="blue">Dim</font> zFind <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
    <font color="blue">Dim</font> mSql <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> retVal <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">With</font> CnDB
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Mode = adModeReadWrite
        .ConnectionString = "D:\db3.mdb"
        .Open
    <font color="blue">End</font> <font color="blue">With</font>
    mSql = "SELECT max(InvoiceNumber) " & _
           "From Invoices " & _
           "WHERE Invoices.TypeCash=Yes"
    <font color="blue">With</font> zFind
        .CursorType = adOpenStatic
        .Open mSql, CnDB, , , adCmdText
        <font color="green">'присвоили значение</font>
        retVal = .Fields(0).Value
    <font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font><br>
</font>
                        