做了个查询数据库然后在MSHFlexGrid(下面HFGrid）中显示，按钮执行正常。想着每次点按钮太麻烦，就移植到了全局脚本中，也触发了，就是卡在Set DBGrid=ScreenItems("HFGrid")，仔细一想确实不对，但又不知道怎么弄了，还请大神指点下，好人一生平安！

Option Explicit

Function action

Dim sdate

Dim conn

Dim ssql

Dim ors

Dim ocom

Dim scon

Dim DBGrid

Dim ADODC

Dim syear

Dim smonth

Dim sday

Dim PCName

Dim DTPicker,DTPicker1

Dim time4,time5

syear=CStr(Year(Now))

   smonth=CStr(Month(Now))

   sday=CStr(Day(Now))

sdate=syear & smonth & sday

scon="Provider = SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source =ms\wincc"

ssql="SELECT * FROM tb3 WHERE 日期='"&sdate&"'"

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString=scon

conn.Cursorlocation=3

conn.open

'Msgbox "7"

Set ors=CreateObject("ADODB.RecordSet")

Set ocom=CreateObject("ADODB.Command")

ocom.commandtype=1

'Msgbox "8"

Set ocom.ActiveConnection=conn

ocom.CommandText=ssql

'Msgbox "9"

Set ors=ocom.Execute

Set DBGrid=ScreenItems("HFGrid")

Set DBGrid.DataSource=ors

DBGrid.Refresh

ScreenItems("HFGrid").colwidth(1)=2500

Set ors=Nothing

conn.close

Set conn=Nothing

Msgbox "5"

End Function