Dim cnn
Dim strcnn
Dim rst
Dim com
Set cnn = CreateObject("ADODB.Connection")
strcnn = "Provider=sqloledb;data source=机器名;initial catalog=数据库名;integrated security=sspi"
cnn.open(strcnn)
Set rst = CreateObject("ADODB.Recordset")
Set com = CreateObject("ADODB.Command")
Com.Commandtype=1
Set Com.ActiveConnection= cnn
Dim aa
aa="54321"
Com.Commandtext="Update tt set username='"& aa & " ' where usernumber=1"
Com.Execute
Com.Commandtext="select * from tt where usernumber=1"
Set rst = Com.Execute
Dim str
str=rst.Fields("username").Value
Dim objTag
Set objTag = HMIRuntime.Tags("1")
rst.close
cnn.close
MsgBox("chenggong")
objTag.Write str

看下。有些前提，就是要建一些变量，
当然也要有对应的自己建的sql库。我这里的表就是tt，呵呵。