Basta praticamente copiare il file del database (chiaramente dopo aver salvato i dati dal programma).
codice:
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
private Sub Command1_Click()
NuovoPercorso = "c:\utente\desktop\database.mdb"
Copyfile PercorsoOriginale, NuovoPercorso, true
La variabile PercorsoOriginale deve contenere il percorso del database che vuoi copiare..
L'ultimo argomento è booleano: se è True e il file esiste già nel desktop, la funzione fallisce. Al contrario, se il file sul desktop esiste già e l'argomento è False, il file viene sovrascritto.

Ciao