finché lascerai questa istruzione

custRs.Sort = "data DESC"


il recordset verrà sortato per data discendente. se non lo cambi come ti è stato detto resterà per sempre nei secoli dei secoli così.