Private Sub btn_Quit_Click()
On Error GoTo Err_btn_Quit_Click
Dim FSO
Set FSO = CreateObject("scripting.filesystemobject")
Dim NewName
NewName = Replace(Now, "/", "")
NewName = Replace(NewName, " ", "")
NewName = Replace(NewName, ":", "")
NewName = NewName & ".mdb"...