S = "SELECT StocksAudit.SClient "
S = S & "FROM Clients INNER JOIN StocksAudit ON Clients.CID = StocksAudit.SClient "
S = S & "WHERE ((Clients.COblast = " & Oblast & ") And (StocksAudit.SStocks = 0) And (StocksAudit.SSKU like '" & ( 100 ) & "#') And " & _
" (StocksAudit.SDate Between " & Chr( 35 ) & Replace(Format(DateFrom, "mm/d/yyyy"), ".", "/") & Chr( 35 ) & " And " & Chr( 35 ) & " & _
" Replace (Format(DateTo, "mm/d/yyyy"), ".", "/") & Chr( 35 ) & ")) "
S = S & "GROUP BY StocksAudit.SClient; "