Dim kj1,kj2,kj3,kj4,kj5,kj6

Dim QR

Dim MSFlexGrid1

Dim LocalBeginTime,LocalEndTime,riqi

Dim oRs1,n,n1,i,z,s1,s11,oCom1,pj

Dim zxy1

Dim oRs

Dim oCom

Dim strcn

Dim conn

Set MSFlexGrid1=ScreenItems("a1")

riqi=Now

LocalBeginTime=Year(riqi)&"-"& Month(riqi) &"-"& Day(riqi) &""&"00:00:00"

LocalEndTime=Year(riqi)&"-"& Month(riqi) &"-"& Day(riqi) &""&"23:59:59"

strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=test;Data Source=.WINCC"

Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = strcn

conn.CursorLocation=3

conn.Open

s1="SELECT DT,Name,q1,q2,q3,q4,q5 FROM biao WHERE DT BETWEEN'"&LocalBeginTime&"'and'"&LocalEndTime&"'ORDER BY DT"

Set oRs=CreateObject("ADODB.Recordset")

Set oCom=CreateObject("ADODB.Command")

oCom.CommandType=1

Set oCom.ActiveConnection=conn

oCom.CommandText = s1

Set oRs=oCom.Execute

MsgBox"OK"

n=oRs.RecordCount

MSFlexGrid1.Clear

MSFlexGrid1.Rows=oRs.RecordCount+2

MSFlexGrid1.ColWidth(0)=700

MSFlexGrid1.ColWidth(1)=2500

MSFlexGrid1.ColWidth(2)=2000

MSFlexGrid1.ColWidth(3)=2000

MSFlexGrid1.ColWidth(4)=2000

MSFlexGrid1.ColWidth(5)=2000

MSFlexGrid1.ColWidth(6)=2000

MSFlexGrid1.ColWidth(7)=2000

MSFlexGrid1.RowHeight(0)=600

MSFlexGrid1.RowHeight(1)=400

MSFlexGrid1.Row=0  

For z=0 To 7

MSFlexGrid1.CellFontSize=12  

MSFlexGrid1.Col=z   

MSFlexGrid1.Text="ABCDEFG"

Next

MSFlexGrid1.MergeCells=4

MSFlexGrid1.MergeRow(0)=True

MSFlexGrid1.Row=1    

For z=0 To 7

MSFlexGrid1.Col=z   

MSFlexGrid1.CellBackColor=vbCyan 

Next

MSFlexGrid1.TextMatrix(1,0)="序号"

MSFlexGrid1.TextMatrix(1,1)="日期"

MSFlexGrid1.TextMatrix(1,2)="名称"

MSFlexGrid1.TextMatrix(1,3)="温度1"

MSFlexGrid1.TextMatrix(1,4)="温度2"

MSFlexGrid1.TextMatrix(1,5)="温度3"

MSFlexGrid1.TextMatrix(1,6)="温度4"

MSFlexGrid1.TextMatrix(1,7)="温度5"

MSFlexGrid1.ColAlignment(0)=4

MSFlexGrid1.ColAlignment(1)=4

MSFlexGrid1.ColAlignment(2)=4

MSFlexGrid1.ColAlignment(3)=4

MSFlexGrid1.ColAlignment(4)=4

MSFlexGrid1.ColAlignment(5)=4

MSFlexGrid1.ColAlignment(6)=4

MSFlexGrid1.ColAlignment(7)=4

If(n>0) Then

 oRs.MoveFirst

 i=0

 Do While Not oRs.EOF

 n=n+1

 MSFlexGrid1.TextMatrix(i+2,0)=i

 MSFlexGrid1.TextMatrix(i+2,1)=oRs.Fields(0).Value

 MSFlexGrid1.TextMatrix(i+2,2)=oRs.Fields(1).Value

 MSFlexGrid1.TextMatrix(i+2,3)=oRs.Fields(2).Value

 MSFlexGrid1.TextMatrix(i+2,4)=oRs.Fields(3).Value

 MSFlexGrid1.TextMatrix(i+2,5)=oRs.Fields(4).Value

 MSFlexGrid1.TextMatrix(i+2,6)=oRs.Fields(5).Value

 MSFlexGrid1.TextMatrix(i+2,7)=oRs.Fields(6).Value

  i=i+1

  oRs.MoveNext

  Loop

  conn.Close

   MSFlexGrid1.TopRow=MSFlexGrid1.Rows -1

Else

 oRs.Requery

 conn.Close 

End If

用按钮触发脚本执行到

Set oRs=oCom.Execute

MsgBox"OK"

就不往下执行，检查了几次不知道什么问题。麻烦各位大神指导指导