Función dsum para campo de dos tablas

Estimado, estoy tratando de implementar en un formulario con dos subformularios , en donde tengo un campo monto y un campo de tipo si/no en cada subformulario, la idea es activar el campo SI/no de cada subformulario y si la resta de los montos de los registros seleccionados es cero, me actualiza estos registros en la tabla de origen de cad a subformulario, esto lo estoy tratando de hacer con vba desde un botón , pero no me funciona.

Les adjunto lo que tengo para ver si me pueden ayudar.

Private Sub MUnitario_Click()
On Error GoTo Err_MUnitario_Click
Dim dbs As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strSQL2 As String
Total As Double
Set dbs = CurrentDb
If MsgBox("Do you want to manually reconcile?", vbYesNo + vbExclamation, "Advertencia ") = vbYes Then
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
If DSum("[Amount]", "[Banco]", "[Match] =" & True) - DSum("[Amount]", "[Sistema]", "[MatchS] =" & True) = 0 Then
strSQL = "Update Banco SET [Estado] ='Conciliado'" _
& "Where [MatchS] = " & True
strSQL2 = "Update Sistema SET [Estado] ='Conciliado'" _
& "Where [MatchS] = " & True
dbs.Execute strSQL
dbs.Execute strSQL2
MsgBox "Applied Match"
dbs.Close
rst.Close
Else
MsgBox "The marked amounts are not netted"
End If
End If
Err_MUnitario_Click:
Resume Next
Forms!Conciliacion!SFBanco2.Form.Requery
Forms!Conciliacion!Sistema2.Form.Requery
Me.txtSistConciliado.Requery
Me.TxtsistPendiente.Requery
Me.txtSistTotal.Requery
End Sub

Saludos