Respaldar Base de datos

[juanutcm]

Hola tengo una base de datos en acces y lo que quiero es hacer un respaldo de la base de datos desde visual basic 6.0 la conexion la estoy haciendo con el dataenvironment y se que para poder tenerla actualizada debo de cerrar primero la conexion y despues copiar el archivo.... pero hice una prueba con el siguiente codigo y me marco que el control activex no puede crear el objeto no se por que me marco este error espero tengan otra solucion distinta o mejor a la mia .... este es el codigo del que les hable arriba

Private Sub sbmnuRespaldo_Click()
DataEnvironment1.rsCommand1.Close
mnuUtilerias.Enabled = False
directorio1 = App.Path & "\Prueba\db1.mdb"
directorio2 = App.Path & "\Prueba\Respaldo"
Set fs = CreateObject("scripting.fylesystemobject")
fs.copyfile directorio1, directorio2, (True)
MsgBox "el respaldo se hizo correctamente", vbInformation + vbOKOnly, "mensaje sistema"
DataEnvironment1.rsCommand1.Open
mnuUtilerias.Enabled = True
End Sub

espero sus respuestas y de antemano muchas gracias....