先上代码，这是一个按钮点击动作：
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)

Dim objConn,objRs,strSql,VAR
Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=C:\access.mdb"
objConn.open
Set objRs = CreateObject("ADODB.RecordSet")
strSql = "SELECT [Öµ] FROM TABLE1 WHERE [ID]=2)"
objRs.open strSql,objConn,1,2
VAR=objRs.Fields(0).value
HMIRuntime.Tags("temp").Write VAR
objRs.close
Set objRs = Nothing
objConn.close
Set objConn = Nothing
End Sub

问题就出在[VAR=objRs.Fields(0).value ]这一句上，这一句之前的代码我用一个insert指令插入到c盘下的access中成功了；这一句下面的把var写给wincc变量temp也执行成功（给var赋了个常数值）。但是连起来就执行不了。也就是给var赋值没有成功的这句有问题