我把代码重新整理了一下如下：
Sub OnClick(ByVal Item)
Dim ConnectionString, strSQL,Connection
Dim rst
Dim ReadVal, Value1
Dim aa
Dim TankLevel

ConnectionString="DSN=oracle;Server=masic.world;Uid=syc;Pwd=syc;"
strSQL = "SELECT * FROM wincc"
Set Connection = CreateObject("ADODB.Connection")
Connection.ConnectionString = ConnectionString
Connection.Open
Set value1=HMIRuntime.Tags("TankLevel")
Set rst = CreateObject("ADODB.RecordSet")

With rst

Call .Open (strSQL, Connection)
While Not.EOF
ReadVal = rst.Fields("TANKLE")

value1.write ReadVal

.MoveNext

Wend
End With
Connection.Close
Set Connection = Nothing
End Sub



经过一再的运行，我发现可能是--变量写入语句--的的错误（value1.write ReadVal），但不知怎么改！！


运行的时候，出错误（说什么到C盘 FOR DETAILS）！！！


请两位斑竹及各位位前辈高手指点！！！

谢谢！！！