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. :)