WINCC ADO 连接字符绑定数据库显示控件的问题

Sub  OnClick(Byval  Item)                                                                                                                           

Dim  database,  server,  uid,  pwd

Dim  strcn,  cn

Dim  is_sql

Dim  rs,  datagrid

Set  datagrid=ScreenItems("DBGRID")

Database  =  "DXW"    '在WINCC  SQL2005的数据库中增加一个名称为DXW的数据库，并增加一个名为DXWTWO的表

server  =  "dxw\wincc"  '此处为电脑名称DXW,改为你的电脑名称

uid  =  ""

pwd  =  ""

strcn  =  "Provider=SQLOLEDB.1;Integrated  Security=SSPI;Persist  Security  Info=False;Initial  Catalog=dxw;Data  Source=.\WINCC"

Set  cn  =  CreateObject("ADODB.Connection")

Set  rs  =  CreateObject("ADODB.Recordset")

cn.ConnectionString  =  strcn

cn.Open  

is_sql  =  "select  *  from  DXWTWO"

  'rs  =cn.Execute  (is_sql)    '执行SQL语句

    rs.CursorLocation  =  3  'adUseClient

  rs.Open  is_sql,  cn,1,3    'adOpenKeyset,  adLockOptimistic

Set    datagrid.DataSource  =  rs    '此句无法绑定数据显示控件,但没有报错不知该如何做?此句在VB6.O的环境中可行。

        datagrid.Refresh

MsgBox  rs("名字")

'MsgBox  (rs.fields.count)

rs.close

cn.Close

MsgBox  "OK"

End  Sub