Mettre à jour mon sous-formulaire Access selon les critères de recherches

Private Sub txt_recherche_LostFocus()
    Dim req1 As String, req2 As String
    Dim db As DAO.Database, rs As DAO.Recordset
    If(txt_recherche.Value <> "") then
        req1="SELECT O.date_operation AS DATES, U.login AS UTILISATEURS, T.designation_operation AS OPERATIONS, M.designation_motif AS MOTIFS, O.devise_operation AS DEVISES, O.montant_operation AS MONTANTS
                    FROM tab_operation AS O, tab_user AS U, tab_type_operation AS T, tab_motif AS M 
                    WHERE U.code_user=O.user
                          AND T.type_operation=O.operation
                          AND M.type_operation=O.operation
                          AND date_operation= '" & txt_recherche & "' 
                   ORDER BY O.date_operation;"

         Set db= CurrentDb
         Set rs= db.OpenRecordset(req1)

         With rs
                  If .EOF Then
                      MsgBox "IL N'Y À EU AUCUNE OPERATION A LA DATE DU '" & txt_recherche & "' ", vbInformation, "DATE RENSEIGNEE INTROUVABLE"
                      Exit Sub
                  Else
                      Do Until .EOF
                            Forms![frm_historique].Form![grid_operation]!DATES.Value= ![date_operation] 'chaque lignes étant tout les champs correspondant aux colones du sous-formulaire
                      Loop
                  End If
          End With

    Else
        grid_operation.Requery ' on recharge le sous-formulaire
    End If
End Sub