If It's about backing up your *.mdb, I have the code to back up your database into *.rar format (Winrar)CommonDialog1.CancelError = TrueCommonDialog1.ShowSaveDim CopyString As String, path As Stringpath = Chr(34) & CommonDialog1.FileName & Chr(34)DestFile = Chr(34) & "D:\DATA\data.mdb" & Chr(34) 'The path of your dataCopyString = "c:\program files\winrar\winrar.exe a " + path + " " + DestFileDim RetValRetVal = Shell(CopyString, 1)