[RESOLVED] Back-up and restore using DAO,Acces as Database,vb6 application

[ryanbesitulo]

Thanks for the reply..

I Changed the code on how to back-up...but i got an error, said that "Permission denied"

Here's my code:

Private Sub Back_Click()
Dim Conn as new ADODB.Connection
Dim Source As String
Dim Destination As String


Source = App.Path & "\Pensioner.mdb"
Destination = App.Path & "\Backup\" & Format(Date, "mmmm dd, yyyy") & " " & Format(Time, "h_mm_ss") & ".mdb"
FileCopy Source, Destination

MsgBox " Backup Successfully Saved!", vbInformation, ""
Conn.Open
End Sub

Thanks,

Yes.... I got it



Thanks both of you..