Affecter une date à une variable

Bonjour,
J'ai une requete qui recupere une date max dans un tableau.ensuite j'ai crée un macro qui lance cette requete.
comment est ce que je peux affecter cette date à une variable sur VBA?
Merci en Avance

Code:

---

1 2 3 4 5 6 7 8

Private Sub Testj_Click()   Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Requête20")   rst.Close   End Sub

---

J'ai ecri ça,mais ne je ne sais pas si ça marche,j'ai ajouté

Code:

---

msgbox rst

---

pour tester,mais ca n'a pas marché cette ligne (type incompatible)

J'ai trouvé la solution, ça peut servir d'autres personnes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Testj_Click() Dim base As DAO.Database Dim res As String Dim rst As Recordset Dim espèce As String Set base = CurrentDb() Set rst = CurrentDb.OpenRecordset("Requête20") rst.MoveFirst While Not rst.EOF With rst res = .Fields("Expr1") MsgBox res End With rst.MoveNext Wend   rst.Close

---