ขณะสำรองข้อมูลอยากให้มี msgbox แจ้งว่าตอนนี้กำลังทำการสำรองข้อมูลอยู่
หลังจากสำรองข้อมูเสร็จ ก็อยากให้ขึ้นข้อความแจ้งว่า สำรองข้อมูลเสร็จแล้ว ตอนนี้ผมมีแจ้งแค่ตอนทำเสร็จแล้วเท่านั้นครับ
ไม่ทราบว่าต้องทำเช่นไรครับผม 

    Dim oFSO As Object
    Dim strDestination As String
    strDestination = "\\server\"
    DBEngine.Idle
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    oFSO.CopyFile CurrentProject.Path & "Data1.accdb", strDestination   
    Set oFSO = Nothing

    MsgBox ("สำรองข้อมูลเสร็จแล้ว"), vbOKOnly + vbInformation, "Process Completed"

ลำดับ      ชื่อ            คะนน
1          AAAA         100
            BBBB         100
3          ccccc           95
4          dddd           90
5          eeee           85
            FFFF           85
7          JJJJJ           80
...............
ต้องการแสดง ลำดับในฟอร์ม หรือ รายงาน ประมาณนี้ครับ