求助 combox 改变后 datagrid 里的显示相应数据并计算及排序并去除为小于等于 0 的数据

在combox里输入内容后，在datagrid里显示相应内容。
问题：datagrid里的数据是由两个表组合查询得来。
下记单独查询是可以的，可combox与datagrid关联络就不会了。

下面这个代码可关联但不能计算加减及排序
Private Sub Combo1_click()
Adodc1.RecordSource = "select xhead.name,xslip.porder,xslip.vendor,xslip.kvol,xslip.tjitu,xslip.ddate from xhead inner join xslip on xhead.code=xslip.code where name='" & Combo1.Text & "'"
Adodc1.Refresh
End Sub

下记这个代码可以进行两列加减及排序并去除小于等于0的数据，但是combox值改变后datagrid不能关联改变。
Private Sub Combo2_click()
Adodc2.RecordSource = "select xhead.name as 品名,xslip.porder as 定单号,xslip.vendor as 供应商,xslip.ddate as 发注日期,xslip.kvol-xslip.tjitu as 注残 from xhead inner join xslip on xhead.code=xslip.code where xslip.kvol-xslip.tjitu>0 order by xslip.ddate asc" 'union select name from xhead where name='" & Combo2.Text & "'"
Adodc2.Refresh

请上手帮忙啊，搞了好久了都没搞出来。