Option Explicit
Function action
Dim LngValue
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL

StrConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=cgccz;Data Source=(Local)\WINCC"
StrSQL = "Select TJFJZS From table_FJSign"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = StrConnectionString
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute

Set LngValue = HMIRuntime.Tags("tjfjzs")
LngValue.Write objRecordset.Fields(0).Value

Set objCommand = Nothing
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing