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