مشکل عبارت sql چیست؟

سلام
در فایل ضممیمه جهت شمارش تعداد پیامهای خوانده نشده از عبارت sql استفاده شده. اما عدد صحیح نشان داده نمی شود. علت چیست؟

سلام
مشکل اینه که Query شما قبل از اینکه تا پایان خوانده شود شما درخواست شمردن رکوردها را اجرا کرده اید. کافی است دستور rs.MoveLast را قبل از سطر آخر اجرا کنید.

    Dim rs As Recordset

    Dim dbs As DAO.Database

    Set dbs = CurrentDb

    Dim intCount As Integer

    Dim SQL As String

    SQL = "SELECT * FROM message WHERE reciver='Abed.Ma' and read=0;"

    Set rs = dbs.OpenRecordset("Select ID From message")

    rs.MoveLast

    MsgBox rs.RecordCount

سلام دوست عزیز
ممنون