If colonne vide tableau (access vba)

Bonjour,
voici mon code,

Dim rsreg As ADODB.Recordset
Dim rsintregreg As ADODB.Recordset


Set con = CurrentProject.Connection
Set rsreg = New ADODB.Recordset
Set rsintreg = New ADODB.Recordset
''
rsreg.Open "[TabIntervalEnqRegl]", con, 1, 3
rsintreg.Open "[tabRegTm]", con, 1, 3
'
Do While rsreg.EOF = False

N_Permis = rsreg("n_permis")
date_recp = rsreg("Date_Reception")
date_repo = rsreg("date_report")
date_real = rsreg("date_realisation")

If (date_repo) = "" And (date_real) = "" Then
date_recp = DateAdd("d", 10, [date_recp])

Else

    If (date_repo) <> "" And (date_real) = "" Then
    date_repo = DateAdd("d", 10, [date_repo])
    End If
    
'Debug.Print date_recp
Debug.Print date_recp, "__", date_repo

normalement ce que je veux c'est:

- tant que la valeur ( date_repo) et (date_real) sont vide j'ajoute 10 jours à la valeur (date_recep).

- tant que la valeur (date_repo) <> = " et que (date_real) vide j'ajoute 10 jours à la valeur (date_recep).

Le code ne marche pas, SAUF dans le 2ème cas lorsque je retire la ligne:

If (date_repo) <> ""  Then
    date_repo = DateAdd("d", 10, [date_repo])
    End If

la date_repo affiche +10.

que dois je faire, j'ai utiliser le RS pour récupérer les champs de ma table afin de faire cette mise à jour, mais lorsque j'ajoute ses clauses ça ne marche, si je retire les clauses "if" ça marche.

???