用ADO 字符串连接,程序如下,就是不能和DATAGRID或MSFGRID连接,当然用ADODC控件是可以的.帮忙看看问题在哪里?
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的数据库

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 '此句无法绑定数据显示控件,但没有报错不知该如何做?
datagrid.Refresh

MsgBox rs("名字")
'MsgBox (rs.fields.count)
rs.close
cn.Close
MsgBox "OK"

End Sub