Ezy Code to backup your database.
Just put this code on a button..
//////////////////////////////////////////////////



Private Sub cmdBackUp_Click()

On Error GoTo ErrorHandler
Dim strFilter As String
Dim lngFlags As Long
Dim strFileOpen As String
Dim i As Integer
Dim mydb As Object
Dim mytable As Object

strFilter = ahtAddFilterItem(strFilter, "MDB (*.MDB)", "*.MDB")

strFileOpen = ahtCommonFileOpenSave(InitialDir:="C:\", OpenFile:=False, _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Time To Backup!")
' Since you passed in a variable for lngFlags,
' the function places the output flags value in the variable.
Debug.Print Hex(lngFlags)

'Retrieve name of letter chosen in dialog

Call sBackUp(strFileOpen)
Set mydb = Application.CurrentDb
For i = 0 To mydb.TableDefs.Count - 1

Set mytable = mydb.TableDefs(i)


If Left(mytable.Name, 4) <> "Msys" And Left(mytable.Name, 1) <> "~" Then
DoCmd.Echo True, "Exporting Table " & mytable.Name & " to " & strFileOpen
DoCmd.CopyObject strFileOpen, mytable.Name, acTable, mytable.Name



End If
Next i
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err.Number = 32755 Then
MsgBox "Cancelled file selection"
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.description
End If

Resume ErrorHandlerExit

End Sub



Public Sub sBackUp(strOutputDatabase As String)
Dim dboutput As Object
If Len(Dir(strOutputDatabase)) > 0 Then
DoCmd.Hourglass False
If MsgBox("Output Database exists. Overwrite?", _
vbYesNo + vbQuestion) = vbYes Then
Kill strOutputDatabase
Else
Exit Sub
End If
End If
Set dboutput = DBEngine.Workspaces(0).CreateDatabase(strOutputDat abase, ";LANGID=0x0409;CP=1252;COUNTRY=0")
dboutput.Close
End Sub