VB6.0 压缩Access数据库的例子，
　　Dim strBackupFile As String
　　Dim strTempFile As String
　　'检查数据库文件是否存在
　　If Len(Dir(Location)) Then
　　 '判断是否需要备份
　　 If BackupOriginal = True Then
　　 strBackupFile = GetTemporaryPath & "backup.mdb"
　　 '预备分文件若已经存在，则删除
　　 If Len(Dir(strBackupFile)) Then Kill strBackupFile
　　 FileCopy Location, strBackupFile
　　 End If
　　 strTempFile = GetTemporaryPath & "temp.mdb"
　　 If Len(Dir(strTempFile)) Then Kill strTempFile
　　 '通过DBEngine压缩数据库文件
　　 DBEngine.CompactDatabase Location, strTempFile
　　 '删除原来的数据库文件
　　 Kill Location
　　 '拷贝刚刚压缩过临时数据库文件至原来位置
　　 FileCopy strTempFile, Location
　　 MsgBox "数据库压缩成功！", vbInformation, "完成"
　　Else
　　 MsgBox "数据库文件不存在！", vbExclamation, "注意"
　　End If
　　Exit Sub