This is a sample code for taking backup and restore of access database

[code=vb]
Dim DBTempSource As Database
Dim DBTempDestinati on As Database

Dim RecTempSource As Recordset
Dim RecTempDestinat ion As Recordset

Sub MBackup()

Set FSO = CreateObject("S cripting.FileSy stemObject")
On Error GoTo Errors
If OptBackup Then
TxtRemarks = "Backup...