Hi again,

Used this code the other day:

On Error GoTo DirCopy_err

Data1.Database.Close
Dim SourceFile, DestinationFile
SourceFile = Label3.Caption ' Define source file name.
DestinationFile = ("A:\contact.mdb") ' Define target file name.
FileCopy SourceFile, DestinationFile ' Copy source to target.
Data1.DatabaseName = Label3.Caption
Data1.Refresh

Is there any way I can save the database to a floppy with the date it was saved and not overwrite the one already on the disk.

Thanks,

Spud