qtp从SQL SERVER拿数据

Dim ii,con,conset,rs,i
Set con=createobject("adodb.connection")
conset="DSN=buggit;Description=buggit;APP=QuickTest Professional;WSID=IT21;DATABASE=buggit;Trusted_Connection=Yes"
'建立连接
con.open conset
'查看连接是否已建立
If  con.state=0 Then
 msgbox"failed"
 else
 '建立空的记录集
Set rs=createobject("adodb.recordset")
'设置SQL语句
sql="select top 10 PKID from TTestCase"
'打开记录集
rs.open sql,con
rs.MoveFirst

Do until rs.eof
datatable.SetCurrentRow(i+1)
datatable.value("A",global)=rs("PKID")
'msgbox rs("names")
rs.MoveNext
i=i+1
Loop

'关闭连接
con.close
'释放Connection对象
Set con=nothing
End If