Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)

On Error Resume Next


Set gocn = CreateObject("ADODB.Connection")
Set gorsAuthors= CreateObject("ADODB.Recordset")



gocn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;uid=sa;PWD=;Initial Catalog=pubs;Data Source=.\WinCC"
'gocn.open "DSN=rwer"
gorsAuthors.open "SELECT au_id, au_fname, au_lname,contract FROM Authors ORDER BY au_lname", gocn, 2, 3

Dim oven
Set oven = HMIRuntime.Tags("oven") ‘oven为内部变量
Dim author
Set author = HMIRuntime.Tags("author")‘author为内部变量
Dim group
Set group = HMIRuntime.Tags("group")‘group为内部变量


gorsAuthors.AddNew

gorsAuthors(0) = oven.Read
gorsAuthors(1) = author.Read
gorsAuthors(2) = group.Read
gorsAuthors(3) = 1

gorsAuthors.Update


On Error Goto 0

End Sub
脚本诊断窗口未提示认识错误，就是实现不了其功能。
一按钮鼠标左键触发。