Visual Basic - Copia de Base de Datos.URGENTE

Necesito generar un backup de la BD por codigo en Visual Base y no se como hacerlo. Desde ya gracias.

Hola, te mando un ejemplo de un programa mio. Un saludo.

En el formulario principal, tengo una barra de menús y con el editor de menús voy creando las opciones. Una de ellas es Archivo, copia de seguridad y en esta última es donde coloco el código (en el mismo formulario principal he tenido que crear un control common dialog):

Private Sub mnuArchivoCopia_Click()
Dim destino, fuente As String
Dim resp As Integer
With CommonDialog1
.DialogTitle = "Realizar copia de seguridad"
.DefaultExt = "*.MDB"
.Filter = "Base de datos (*.mdb)|*.mdb|Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
.ShowSave
End With
fuente = "C:\Mibase.mdb"
destino = CommonDialog1.FileName
On Error GoTo ManejadorError
FileCopy fuente, destino
MsgBox ("Copia de seguridad realizada")
Exit Sub
ManejadorError:
If Err.Number = 61 Then
resp = MsgBox("El disco de destino está lleno", vbAbortRetryIgnore)
If resp = vbRetry Or resp = vbIgnore Then
Resume
Else
Exit Sub
End If
Else
If Err.Number = 70 Then
MsgBox ("La Base de Datos está siendo utilizada en estos momentos, realice la copia en otro momento")
Else
If Err.Number <> 0 Then
MsgBox ("Error: " & Err.Number)
End If
End If
End If
End Sub