ник: Tip
Ни как немогу разобраться с циклом ADO по записям для подсчета: функцию взял по аналогии с DAO
Private Sub Schitat()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT ДатаПоступления FROM Квартиры WHERE ДатаПоступления=Date()", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If rst.RecordCount <> 0 Then
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF
rst.MoveNext
Loop
MsgBox "Сегодня поступило: " & rst.RecordCount
Else
MsgBox "За сегодня заявок не поступало"
End If
rst.Close
Set rst = Nothing
End Sub