如何从资料库中读取资料并在WinCC的画面中显示

GRPID仅仅是用户所在组代表的ID，意义不是很大，一般去用户组比较有意义。
 这是我以前用的VBS脚本，稍微改了一下。
 Dim oConn,oRs,strConn
 '********************创建COM对象************************
 Set oConn=CreateObject("ADODB.Connection")
 Set oRs=CreateObject("ADODB.RecordSet")
 '*********************读取DSN并连接数据库************************
 Dim DSN
 DSN = HMIRuntime.Tags("@DatasourceNameRT").Read
 If Len(DSN)<0 Then Exit Sub
 DSN = Mid(DSN,1,Len(DSN)-1)
 'HMIRuntime.Trace "DSN : " & DSN & vbCrLf
 strConn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=.\WINCC;Initial Catalog='" & DSN & "';"
 HMIRuntime.Trace strConn & vbCrLf
 oConn.Open strConn
 '*********************获取用户所在用户组名************************
 Dim strSQL
 strSQL="SELECT NAME FROM PW_USER WHERE ID IN (SELECT GRPID FROM PW_USER WHERE NAME = '" & HMIRuntime.Tags("@CurrentUser").Read  &"')"
 HMIRuntime.Trace "strSQL : " & strSQL & vbCrLf
 oRs.Open strSQL,oConn,1,1
 If Not oRs.eof Then
  MsgBox oRs("NAME")
   'HMIRuntime.Tags("GRPNAME").Write  oRs("NAME").Value
 End If
 '*********************卸载COM对象************************
 oRs.Close
 Set oRs = Nothing
 oConn.Close
 Set oRs = Nothing