Database Backup in vb.net

Database Backup in vb.net
firstly you need to add reference to COM component: Microsoft DAO Object Library to your project.
Project menu -> Add Reference -> COM tab -> Navigate to "Microsoft DAO 3.x Object Library
====================================================
Microsoft DAO Object Library to your project

Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sDBFile As String = Application.StartupPath + "/db_name.mdb"
Dim sBackUpFile As String = "E:\db_name.mdb"
' Backup *.mdb database
If File.Exists(sDBFile) Then
Dim db As New DAO.DBEngine
'CompactDatabase has two parameters, creates a copy of compact DB at the Destination path
db.CompactDatabase(sDBFile, sBackUpFile)
End If

End Sub
End Class
===============================================================

Easy method (simple method)
----------------------------------------------------------------------------------------------------
Imports System.IO
……………………………………………………………………………………………………………………………….
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sDBFile As String = Application.StartupPath + "/db_name.mdb"
Dim sBackUpFile As String = "E:\db_name.mdb
If File.Exists(sDBFile) Then
FileCopy(sDBFile, sBackUpFile
End If
End Sub
End Class
===============================================================