Notification date échéance (access vba)

Dim date_sys As Date

date_sys = Format(Now, "dd/mm/yyyy")
Dim ech As Date

Dim con As ADODB.Connection
Dim rsg As ADODB.Recordset
Dim rsp As ADODB.Recordset


Set con = CurrentProject.Connection
Set rsg = New ADODB.Recordset
Set rsp = New ADODB.Recordset


rsg.Open "[TabIntervalEnqRegl]", con, 1, 3
rsp.Open "[not_Recep]", con, 1, 3

'DoCmd.RunSQL "drop table dbo.not_Recep"

sqlIntEch2 = "delete from dbo.not_Recep "
DoCmd.RunSQL sqlIntEch2



Do While rsg.EOF = False

date_rec = rsg("rappel_reception")
N_dossier = rsg("N_dossier")

ech = date_rec



        If ech = date_sys Then
        rsp.AddNew
        rsp("N_dossier") = N_dossier
        'rsp("Date_Ech") = ech
        rsp.Update
        rsp.MoveNext
        End If
         

                       
'Debug.Print ech, "___", N_dossier
rsg.MoveNext
Loop


con.Close
Set con = Nothing
Set rsg = Nothing
Set rsp = Nothing


End Sub