ผมมีโปรแกรมคือ C:\Prog1\Mast.mdb ผมจะใส่โค้ดข้างล่างลงปุ่มเพื่อ Compact ตัวมันเองอย่างไรครับ (กดปุ่มเพื่อCompact) 
และผมมีไฟล์ดาต้าคือ C:\Prog1\data.mdb ผมจะสั่งจาก Mast.mdb เพื่อ Compact data.mdb ได้หรือไม่ครับ ถ้าได้จะใส่โค้ดอย่างไรครับ 
 
Sub CompactDB(strOldDb As String, Optional strNewDb As String) 
    
    Dim strCompact As String 
     
    On Error GoTo errCompactDB 
    Application.Echo False 
    If IsMissing(strNewDb) Then 
        strCompact = strOldDb 
    Else 
        strCompact = strNewDb 
    End If 
    SendKeys strOldDb, False 
    SendKeys "{enter}", False 
    SendKeys strCompact, False 
    SendKeys "{enter}", False 
    RunCommand acCmdCompactDatabase 
exitCompactDB: 
    Application.Echo True 
    Exit Sub 
     
errCompactDB: 
    Select Case Err 
        Case 2501 
        Case Else 
            MsgBox Err.Number & ":- " & vbCrLf & Err.Description 
    End Select 
    Resume exitCompactDB 
End Sub