ما هو الخطأ في هذا الكود

أرفق لكم هذا الكود حيث لم أستطع أكتشاف الخطأ به ولكثرة محاولاتي أبت النتيجة إلا أن تكون فاشلة ، حيث أنه يعمل بواحدة دون الأخرى والكود هو

Private Sub AccNo_Click()

If Reference = True Then
If MsgBox("This is Not a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub
          Else
            Me.Bor_date = date
            Me.due_date = DateAdd("d", 2, (date))
End If

If Reference = False Then
If MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub
           Else
            Me.Bor_date = date
            Me.due_date = DateAdd("d", 21, (date))
           Exit Sub
End If

End Sub

حيث أن REFERENCE هو حقل وكذلك Bor_date و Due_date هما حقلان يتم ادخال تاريخ بهما على حسب المعطيات بالكود.

شكرا للجميع