Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim dbs1 As dao.Database
Dim dbs2 As dao.Database
Set dbs1 = OpenDatabase("C:\HCCTRL\Backup.accdb", True, False, "MS Access;PWD=BANDA")
Set dbs2 = OpenDatabase("C:\HCCTRL\CHEQUESbe.accdb", True, False, "MS Access;PWD=DISSA")...