o que vc quer......backup do banco de dados ou do programa todo??? se for do programa todo sera meio complexo, pois existe dll, ocx para funcionar o sistema......seria mais facil usar o backup do windows.......

 

se for do banco, a melhor maneira de se fazer isto é criar um novo banco de dados com a mesma estrutura do banco de dados original e copiar o registro desejado. Mas para criarmos um novo banco de dados com a mesma estrutura devemos utilizar o método CreateDatabase para criar o banco de dados, CreateField para criar os campos e depois é só copiar o registro para o novo banco de dados criado, que será o backup... Abaixo segue a rotina que utilizei para realizar testes.

    Dim DB As Database, NewDB As Database
    Dim tbl As Recordset, NewTbl As TableDef
    Dim rec As Recordset
    Dim Fld As Field
       
    Set DB = OpenDatabase("Arquivo.mdb")
    Set tbl = DB.OpenRecordset("NomeTabela")
       
    'Cria um novo banco de dados, que será o backup....
    If Dir("C:BACKUP.MDB") <> "" Then Kill "C:BACKUP.MDB"
    Set NewDB = CreateDatabase("C:BACKUP.MDB", dbLangGeneral)
    Set NewTbl = NewDB.CreateTableDef("NomeTabela")
    For i = 0 To tbl.Fields.Count - 1
        NewTbl.Fields.Append NewTbl.CreateField(tbl.Fields(i).Name, tbl.Fields(i).Type, tbl.Fields(i).Size)
    Next
    NewDB.TableDefs.Append NewTbl
   
    'copia o registro corrente para o backup
    Set rec = NewDB.OpenRecordset("NomeTabela")
    rec.AddNew
    For i = 0 To tbl.Fields.Count - 1
        rec(i) = tbl(i)
    Next
    rec.Update

Depois para restaurar o backup, basta abrir o banco de dados de backup normalmente e copiar os dados de campo a campo.