كيف اجعل البحث بتاريخ والوقت معاً نامل التعديل على الكود التالي

السادة الكرام

السلام عليكم ورحمة وبركاته

كيف اجعل البحث بتاريخ والوقت معاً نامل التعديل على الكود التالي

  If RS1.NoMatch Then
        Exit Sub
        RS1.FindFirst "date=#" & Date & "#"

    Else
        If RS1("Disclaimer").Value = True Then
            Load Frm_ShowDate
            Frm_ShowDate.lblDate.Caption = RS1("date").Value
            Frm_ShowDate.lblToday.Caption = RS1("today").Value
            Frm_ShowDate.lblNotes.Caption = RS1("Elaboration").Value
            Frm_ShowDate.tmr1.Enabled = True
            Frm_ShowDate.Show 1
            Timer1.Enabled = False
        Else
            Exit Sub
        End If
    End If

الله يحفظكم ويرعاكم

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------