[Resolvido]backup automatico

Estou tentando adptar este código para backup do JPaulo ,mas ele trava meus forms quando inicio o form principal ,por que sera?
Function BackBD()
'elaborado por: JPaulo - 11/10/2006

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\backupsisconven\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\sisconven.mdb", Caminho & Format(Now, "_mmyyyy") & ".mdb"
End Function

Private Sub Form_Close()
Call BackBD
End Sub

No exemplo, o arquivo é mdb. Será que não está tentando criar cópia de um accdb?

não é mbd

Como você está usando essa função? Por acaso está colocando ela do jeito que está aí no evento "Ao abrir"? O certo seria você colocar ela no início do módulo e no "Ao abrir" colocar Call BackBD. É assim que está fazendo?

Criquio ja resolvi ,mas fiz como esta acima mesmo , problema erra na pasta de destino
Valeu pela atenção