Cosi' visualizzi tutti i record nello stesso textbox, anche se vedi solamente l'ultimo ... e' un codice che non ha senso perche' non fa altro che sprecare risorse ...

Dovresti eliminare questa parte

codice:
Do While Not rst1.EOF
  Text1.Text = rst1!RIFERIMENTO
  rst1.MoveNext
Loop
e sostituirla con

codice:
If Not rst1.EOF Then
  rst1.MoveLast
  Text1.Text = rst1!RIFERIMENTO
Else
  Text1.Text = ""
End If