Código:
Private Sub cmdBackup_Click() On Error GoTo ErrorBackup 'Cerramos la conexion 'If dbConex.State = 1 Then dbConex.Close 'Esta linea cierra la conexion del modulo 'Copiamos la base de datos en la carpeta backup Screen.MousePointer = 1 MsgBox CopiaBDPwd(App.Path & "\SYSTEM_DB_01.mdb", App.Path & "\BackUp\Copia de SYSTEM_DB_01.mdb", 45568392), vbInformation, "Information" 'Volvemos a abrir la conexion 'Main 'Esta linea vuelve a abrir la conexion del modulo Exit Sub ErrorBackup: MsgBox "No se pudo crear la copia de seguridad", vbCritical, "Debe cerrar todas las ventanas" End Sub