[Access et VBa] probleme avec des texte

salut à tous

j'ai un souci mon code fait ce que je veut dans une base de données mais pas dans l'autre

Je m'explique : je doit programmer une base de donnée et pour cela je fait une petite apllication a coté ou je test tous mes morceau de fonction

voila mon code

Deja sur mon appli de test

Private Sub Liste4_Click()



txttest = Now()


Sql = "SELECT Table1.date_garantie FROM Table1"
Sql = Sql & " WHERE (((Table1.nom) = """ & Me.Liste4 & """)) "

DoCmd.DeleteObject acQuery, "cmt2imprimante"
CurrentDb.CreateQueryDef "cmt2imprimante", Sql

Set Qry = CurrentDb.QueryDefs("cmt2imprimante")
Set rs = Qry.OpenRecordset


While Not rs.EOF

txtcmt2imprimante2 = rs(0)
rs.MoveNext

Wend


If txtcmt2imprimante2 <= Now() Then
attention.Visible = True
Else
attention.Visible = False
End If



Set Qry = Nothing
Set rs = Nothing


End Sub



et maintenant ma vrai qui ne marche pas bien


Sql = "SELECT imprimante.Date_garantie_imp FROM imprimante"
Sql = Sql & " WHERE (((imprimante.nom_partage_reseau) = """ & Me.lstimpreseau & """)) "

DoCmd.DeleteObject acQuery, "garantieimpres"
CurrentDb.CreateQueryDef "garantieimpres", Sql

Set Qry = CurrentDb.QueryDefs("garantieimpres")
Set rs = Qry.OpenRecordset




While Not rs.EOF

testgarantieimp = rs(0)
rs.MoveNext

Wend

If testgarantieimp <= Now() Then
attention23.Visible = True
Else
attention23.Visible = False
End If


Set Qry = Nothing
Set rs = Nothing