通过VBS访问ＳＱＬ数据库服务器中ｍａｓｔｅｒ数据库下的表格数据Ｕｓｅｒｄａｔａ，并且把数据查询结果显示在ＤＢＧｒｉｄ控件中，编写了如下脚本，运行没有结果。请高手帮忙修正下！
其中ＤＢＧｒｉｄ控件在画面上的名字为ＤＢＧＲＩＤ。

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)


Dim ConString,objConnection,objRecordset,strSQL
'ConString="Provider = SQLOLEDB.1 ;DRIVER=SQLERVER;SERVER=ES021\WINCC;DATABASE=master;UID=;PWD="
ConString="Provider=SQLOLEDB.1; Server=ES021\WINCC; Database=master; Integrated Security=SSPI"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString=ConString
objConnection.Open
strSQL=" select * from Userdata "
Set objRecordset = objConnection.Execute(strSQL)




　Dim Grid
Set Grid=ScreenItems("DBGRID")
Set Grid.DataSource = objRecordset.Recordset
Grid.Refresh

Set objRecordset = Nothing
objConnection.Close
Set objConnection = Nothing

End Sub