Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim DSN
Dim strConn
Dim sSql
Dim oRs
Dim conn
Dim oCom

DSN = HMIRuntime.Tags("@DatasourceNameRT").Read
strConn="Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& "Persist Security Info=False;Data Source=.\WINCC;" _
& "Initial Catalog='" & DSN & "';"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = strConn
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
sSql = "Delete * FROM UA#SChareRecord"
oCom.CommandText = sSql
oCom.Execute
End Sub
上述程序不能执行删除数据，向大家请教应该如何写，谢谢