di chuyen ban ghi nay sang ban ghi khac. In bang "dshs" theo thu tu nguoc tu duoi len

Sub in_dshs_tt_nguoc()

Dim db As DataBase, rec As Recordset

Set db=currentDb()

Set rec= db.OpenRecordset("dshs")

rec.MoveLast

Do Until rec.BOF

MsgBox "Ho ten" +rec![hoten]+ "tong diem " + Str(rec![diem])

rec.MovePrevious

Loop

rec.close

End Sub