（求助）求大神帮我看看代码，哪里出错了。

Sub OnClick(ByVal Item)
Dim dataname,m
Dim ltimebegin,ltimeend,utctimebegin,utctimeend
Dim scon,ssql,ors,ocom
Dim mint,moutt,boutt,bint
item.Enabled=False
On Error Resume Next
Set dataname = HMIRuntime.Tags("@DatasourceNameRT").Read
Set ltimebegin = HMIRuntime.Tags("tag_timebegin").Read
Set ltimeend = HMIRuntime.Tags("tag_timeend").Read
Msgbox "open with:"&dataname &ltimebegin
utctimebegin = Dateadd("h",-8,ltimebegin.value)
utctimeend = Dateadd("h",-8,ltimeend.value)
utctimebegin = Year(utctimebegin) & "-" & Month(utctimebegin) & "-" & Day(utctimebegin) & " " & Hour(utctimebegin) & ":" & Minute(utctimebegin) & ":" & Second(utctimebegin)
utctimeend = Year(utctimeend) & "-" & Month(utctimeend) & "-" & Day(utctimeend) & " " & Hour(utctimeend) & ":" & Minute(utctimeend) & ":" & Second(utctimeend)
scon = "Provider=WinCCOLEDBProvider.1; Catalog='&dataname.value&'; Data Source=ES.\WinCC"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = scon
conn.CursorLocation = 3
conn.Open
ssql = "Tag:R,('lsw\branch_intemperature,lsw\branch_outtemperature,lsw\main_outtemperature,lsw\main_intemperature'),'"&utctimebegin&"','"&utctimeend&"'"
ssql = ssql + "order by timestamp ASC"
MsgBox "open with:" &vbCr & scon &vbCr &ssql &vbCr
Set ors = CreateObject("ADODB.Recordset")
Set ocom = CreateObject("ADODB.Command")
ocom.CommandType = 1
Set ocom.ActiveConnection = conn
ocom.CommandText = ssql
Set ors=ocom.Execute
m=ors.RecordCount
If m > 0 Then
bint = ors.fields(0).value
boutt = ors.fields(1).value
moutt = ors.fields(2).value
mint = ors.fields(4).value
Else
MsgBox "没有查询到数据............."
item.Enabled=True
Set ors=Nothing
conn.close
Set conn=Nothing
End If
Set ors=Nothing
conn.close
Set conn=Nothing
HMIRuntime.Tags("branch_int").Write bint
HMIRuntime.Tags("branch_outt").Write boutt
HMIRuntime.Tags("main_int").Write mint
HMIRuntime.Tags("main_outt").Write moutt
End Sub