qtp，VBScript操作MySQL数据库时，关于多次访问数据库的问题，数据集如何处理

Dim dataset ,sql1,cusimnum
Set dataset=createobject("ADODB.RecordSet")'创建数据集
sql1="SELECT openid from IM_SM_CUSTOMER where host_tel='"+hostTel+"' LIMIT 1"
dataset.Open sql1,conn,1,1'定义dataset的时候 要用set不然这里点不出来open方法，1,1代表查询
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset.Close
'        Set dataset=nothing‘如果只有一个查询，没有其他数据库操作，那么这里关闭数据集，取消对象，然后关闭数据库链接，如果有其他的操作这里，只是关闭数据集，这一步很必要

End If

Dim  sql2,cusimnum
sql2="SELECT openid from IM_SM_CUSTOMER where host_tel='"+hostTel+"' LIMIT 1"
dataset.Open sql2,conn,1,1'因为上面已经有数据集，这里还是查询，那么可以直接使用这个数据集，如果在上面没有关闭数据集，这里会报对象已打开的错误，操作完成后要关闭对象，如果完成操作要设置对象为nothing，并且关闭数据库
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset.Close
'        Set dataset=nothing

End If

Dim  sql3,cusimnum
sql3="insert sql"
dataset.Open sql3,conn,1,3'因为上面已经有数据集，这里新增，还是可以直接用原来的数据集操作，，就从新创建一个数据集，上面的数据集一定要关闭以及set nothing，那么可以直接使用这个数据集，如果在上面没有关闭数据集，这里会报对象已打开的错误，操作完成后要关闭对象，如果完成操作要设置对象为nothing，并且关闭数据库
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset.Close
'        Set dataset=nothing

End If

Dim  sql4,cusimnum，dataset2
sql4="selectsql"

Set dataset2=createobject("ADODB.RecordSet")'创建数据集，因为上面数据集进行了现在操作，这里查询，就不可以直接用原来的数据集操作，就从新创建一个数据集

dataset2.Open sql4,conn,1,3'，上面的数据集一定要关闭以及set nothing，
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset2.Close
'        Set dataset=nothing，看后面操作决定是否set nothing

End If

'关闭数据库连接
closeConnWithMysql()    ‘数据库连接关闭一次就可以了，根据增，删，改，查不同的操作，去决定是否新建数据集