控件绑定问题,急,请帮忙解决

控件绑定问题,急,请帮忙解决
sql = "select sum(实际发货量) as hj1 from 发货情况统计 where 客户='" & Combo1.Text & "' and (类别='常规产品'or 类别='第一次批供产品' or 类别='第二次批供产品') and 生产品名='" & rs.Fields("生产品名").Value & "'and   发货时间 between '" & D1.Value & "' and '" & D2.Value & "' "
Set rs13 = New ADODB.Recordset
rs13.Open sql, conn, adOpenKeyset, adLockPessimistic
Set Text5.DataSource = rs13
Text5.DataField = "hj1"
rs13.Close
Set rs13 = Nothing
sql = "select  sum(应开票金额) as hj2 from 发货情况统计 where 客户='" & Combo1.Text & "'and (类别='常规产品'or 类别='第一次批供产品' or 类别='第二次批供产品') and 生产品名='" & rs.Fields("生产品名").Value & "'and 发货时间 between '" & D1.Value & "' and '" & D2.Value & "' "
Set rs14 = New ADODB.Recordset
rs14.Open sql, conn, adOpenKeyset, adLockPessimistic
Set Text5.DataSource = rs14
Text5.DataField = "hj2"
rs14.Close
Set rs14 = Nothing
我编了这样两段代码,都用text5 去绑定,运行是出错,说是不能绑定hj2,经过检查,要把后面的text5换成其他的(换成text6),运行正确,是不是不能用绑定在同一个text5上,每求和一次就用一个新的text,太多,有没有其他解决办法,rs14.Close
Set rs14 = Nothing,用完我就关闭了啊,用什么方法可以释放text5,