Ciao ragazzi
volevo chiedrvi una piccola consulenza, io ho una Text1 dove vorrei che si visualizzasse
l'ultimo record.
In genere utilizzo questo sistema per visualizzare i record nelle diverse text:

Dim rst1 As Recordset, DB1 As Database
Set DB1 = OpenDatabase("C:\...\DB_MAIL.mdb")
Set rst1 = DB1.OpenRecordset("SELECT DISTINCT RIFERIMENTO FROM NEGOZIO")
Do While Not rst1.EOF

Text1.Text = rst1!RIFERIMENTO

rst1.MoveNext
Loop
rst1.Close
DB1.Close

...chiaramente cosi' è a casaccio, invece io vorrei che si visualizzasse sempre l'ultimo record.
Grazie vrcla