网上查了查，自己写了个。

------------------------------------------------------

Dim objConnection

Dim strConnectionString

Dim objCommand

Dim strsql

Dim str1,str2,str3,str4,str5,str6

Dim objCtrl

Dim CtrlValue

Set objCtrl = ScreenItems("Control1")

CtrlValue=objCtrl.SelectedID

HMIRuntime.Trace "CtrlValue is " &CtrlValue &vbCrlf&vbCrlf&vbCrlf

str1="Provider=MSOLEDBSQL;"

str2="Data Source="

str3=HMIRuntime.TagS("@ServerName").Read

str4="\WINCC;"

str5="Initial Catalog=sql_gdl;Trusted_connection=yes;"

str6=str1 + str2 + str3 + str4 + str5

'MsgBox(str6)

strsql ="SELECT * FROM [testProj_23_07_07_08_48_30R].[dbo].[UA#Recipe] WHERE ID="&CtrlValue 'Recipe是用户归档的名称

Set objConnection = CreateObject("ADODB.Connection")

objConnection.COnnectionString = str6                                              

objConnection.open objConnection.CoNnectionString

Dim rst

Dim pw

Set rst=CreateObject("ADODB.Recordset") 

rst.open strsql,objConnection

pw=rst.Fields("char1").Value ‘字符串字段

HMIRuntime.Trace "pw value is " &pw &vbCrlf&vbCrlf&vbCrlf

Dim bM86

bm86= rst.Fields("Value1").Value '数值字段

HMIRuntime.Trace "TestTag1 value is " &bm86 &vbCrlf&vbCrlf&vbCrlf

HMIRuntime.TagS("TestTag1").Write bm86

HMIRuntime.TagS("TestChar1").Write pw

objCoNnection.Close

Set objComMand = Nothing

Set objConnecTion = Nothing

--------------------------------------------------------------

这样看的话，用户归档里面，每个字段都配一个变量，应该是专门为uaArchiveWriteTagValues这个函数准备的。