Try this code :
Public Sub BackUpInformation()
Source = Application.StartupPath & "\DataBaseName.mdb" Path = "New Path to Save Backup"
If GetPath.ToString = "" Then Else Try
File.Copy(Source, Path & "\DataBaseNameBackUp.mdb", True) Catch ex As Exception
MessageBox.Show(ex.ToString) End Try
End If
End Sub
I hope it will help you.
