主题：这个条件怎么改?

红字部分

Dim drs1 As List(Of DataRow)

For n As Integer=0 To Tables("合同").Rows.Count-1

    Dim rr As Row =Tables("合同").Rows(n)

    drs1 = DataTables("利息").Select("本期结息日= #" & Date.today & "# And 合同编号='" & rr("合同编号") & "'And rr("是否展期")='是' ")

    For Each dr1 As DataRow In drs1

我想利息表里面的条件是本期结息日等于今日以及合同编号等于合同表里面的合同编号,以及合同表里面的是否展期列= "是"的时候,执行代码