求助：添加一个条件

代码如下

Sub 更新余额() 
    With CurrentProject.Connection
        On Error Resume Next
        .Execute "DROP TABLE 临时"
        .Execute "SELECT * INTO 临时 FROM (select ID,(select sum(收入)-sum(iif(isnull(支出),0,支出)) from 数据 where ID<=x.ID) as 余额 from 数据 x)"
        .Execute "UPDATE 数据 A,临时 B SET A.余额=B.余额 WHERE A.ID=B.ID"
        .Execute "DROP TABLE 临时"
    End With
    '    MsgBox "余额更新加成功。", vbInformation, "更新纪录"
End Sub

这段代码是收入-支出最后得到余额

请问现在我想加一个条件，比如加一个银行名称=银行名称

请问如何修改代码