error message

[azhar2006]

So what you do is turn it into a module?
What is the solution

[pbaldy]

Really? Try this. Change:

Public Sub Backup(strSource As String, strTarget As String)

to

Public Sub BackupFile(strSource As String, strTarget As String)

and change

Call Backup("c:\Test\202.mdb", "c:\Test\ds\az.mdb")

to

Call BackupFile("c:\Test\202.mdb", "c:\Test\ds\az.mdb")

[azhar2006]

Thank you very much pbaldy
Gooooooood This He has worked well, such as what I said

[pbaldy]

No problem.