谢谢，问题解决了。还有个问题，上面讨论的脚本是一个用LISTVIEW实现实时报表的脚本，我先说一下我的思路，下位有两个布尔量，分别是启动归档和停止归档，先在变量记录里设置好。当数据记录到数据库时，运行全局脚本将数据显示到LISTVIEW上。先在有个问题，每次查询的时候，报表数据就闪个不停，应该是把所有的数据都刷新所导致的。能不能只刷新最新的，这样应该就不闪了吧。没接触过这些东西，自己摸索的，希望各位高人指教。我把我的程序发一下。还有，变量记录能不能仅在一个变量的上升沿时归档一次。
Option Explicit
Function action
Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql, sSql1,sSql2,sSql3,sSql4,sSql5,sSql6,sSql7,sSql8,sSql9,sSql10,sSql11,sSql12,sSql13,sSql14,sSql15,sSql16,sSql17,sSql18,sSql19,sSql20,sSql21, sSql22,sSql23,sSql24,sSql25,sSql26,sSql27,sSql28
Dim oRs,oRs1,oRs2,oRs3,oRs4,oRs5,oRs6,oRs7,oRs8,oRs9,oRs10,oRs11,oRs12,oRs13,oRs14,oRs15,oRs16,oRs17,oRs18,oRs19,oRs20,oRs21,oRs22,oRs23,oRs24,oRs25,oRs26,oRs27,oRs28
Dim conn
Dim oCom,oCom1,oCom2,oCom3,oCom4,oCom5,oCom6,oCom7,oCom8,oCom9,oCom10,oCom11,oCom12,oCom13,oCom14,oCom15,oCom16,oCom17,oCom18,oCom19,oCom20,oCom21,oCom22,oCom23,oCom24,oCom25,oCom26,oCom27,oCom28
Dim oItem,oItem1
Dim m,n,l
Dim hourdate
Dim secdate
Dim k,err1,err2,err3,err4,err5,err6,err7,err8,err9,err10,err11,err12,err13,err14,he,esum
Dim oList,oList1
Dim objExcelApp,i,j,ci
Dim v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,v17,v18,v19,v20,v21,v22,v23,v24,v25,v26,v27,v28,v,ev
Dim zl1,zl2,zl3,zl4,zl5,zl6,zl7,zl8,zl9,zl10,zl11,zl12,zl13,zl14,zl15,zl16,zl17,zl18,zl19,zl20,zl21,zl22,zl23,zl24,zl25,zl26,zl27,zl28,zl,ezl
Dim StrBtime,StrEtime,aStrBtime,bStrBtime,aStrEtime
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''连接并读取数据库
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_1111_10_05_04_13_49_58R;"
sSer = "Data Source=.\WinCC"
sCon = sPro + sDsn + sSer


Dim newEtime,newBtime,Etime
Etime=FormatDateTime(Now(),vbGeneralDate)
newEtime=DateAdd("h",-8,Etime)
newBtime=DateAdd("h",-11,Etime)
StrEtime=CStr(newEtime)
StrBtime=CStr(newBtime)''''''''''''''''''''''''''''''''''''''''''''''''起始及终止时间（格林尼治时间）

sSql = "TAG:R,'shift\threeshift','"+StrBtime+"','"+StrEtime+"'"
sSql1 = "TAG:R,'test\cc1','"+StrBtime+"','"+StrEtime+"'"
sSql2 = "TAG:R,'test\cc2','"+StrBtime+"','"+StrEtime+"'"
sSql3 = "TAG:R,'test\cc3','"+StrBtime+"','"+StrEtime+"'"
sSql4 = "TAG:R,'test\cc4','"+StrBtime+"','"+StrEtime+"'"
sSql5 = "TAG:R,'test\cc5','"+StrBtime+"','"+StrEtime+"'"
sSql6 = "TAG:R,'test\cc6','"+StrBtime+"','"+StrEtime+"'"
sSql7 = "TAG:R,'test\cc7','"+StrBtime+"','"+StrEtime+"'"
sSql8 = "TAG:R,'test\cc8','"+StrBtime+"','"+StrEtime+"'"
sSql9 = "TAG:R,'test\cc9','"+StrBtime+"','"+StrEtime+"'"
sSql10 = "TAG:R,'test\cc10','"+StrBtime+"','"+StrEtime+"'"
sSql11 = "TAG:R,'test\cc11','"+StrBtime+"','"+StrEtime+"'"
sSql12 = "TAG:R,'test\cc12','"+StrBtime+"','"+StrEtime+"'"
sSql13 = "TAG:R,'test\cc13','"+StrBtime+"','"+StrEtime+"'"
sSql14 = "TAG:R,'test\cc14','"+StrBtime+"','"+StrEtime+"'"'''''''''''''''''''''''''''''''''''''''''''''''''1-14秤当前值
sSql15 = "TAG:R,'test\cc1_1','"+StrBtime+"','"+StrEtime+"'"
sSql16 = "TAG:R,'test\cc2_1','"+StrBtime+"','"+StrEtime+"'"
sSql17 = "TAG:R,'test\cc3_1','"+StrBtime+"','"+StrEtime+"'"
sSql18 = "TAG:R,'test\cc4_1','"+StrBtime+"','"+StrEtime+"'"
sSql19 = "TAG:R,'test\cc5_1','"+StrBtime+"','"+StrEtime+"'"
sSql20 = "TAG:R,'test\cc6_1','"+StrBtime+"','"+StrEtime+"'"
sSql21 = "TAG:R,'test\cc7_1','"+StrBtime+"','"+StrEtime+"'"
sSql22 = "TAG:R,'test\cc8_1','"+StrBtime+"','"+StrEtime+"'"
sSql23 = "TAG:R,'test\cc9_1','"+StrBtime+"','"+StrEtime+"'"
sSql24 = "TAG:R,'test\cc10_1','"+StrBtime+"','"+StrEtime+"'"
sSql25 = "TAG:R,'test\cc11_1','"+StrBtime+"','"+StrEtime+"'"
sSql26 = "TAG:R,'test\cc12_1','"+StrBtime+"','"+StrEtime+"'"
sSql27 = "TAG:R,'test\cc13_1','"+StrBtime+"','"+StrEtime+"'"
sSql28 = "TAG:R,'test\cc14_1','"+StrBtime+"','"+StrEtime+"'"'''''''''''''''''''''''''''''''''''''''''''''''''1-14秤预秤值
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''显示到listview中
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject("ADODB.Recordset")
Set oRs1 = CreateObject("ADODB.Recordset")
Set oRs2 = CreateObject("ADODB.Recordset")
Set oRs3 = CreateObject("ADODB.Recordset")
Set oRs4 = CreateObject("ADODB.Recordset")
Set oRs5 = CreateObject("ADODB.Recordset")
Set oRs6 = CreateObject("ADODB.Recordset")
Set oRs7 = CreateObject("ADODB.Recordset")
Set oRs8 = CreateObject("ADODB.Recordset")
Set oRs9 = CreateObject("ADODB.Recordset")
Set oRs10 = CreateObject("ADODB.Recordset")
Set oRs11 = CreateObject("ADODB.Recordset")
Set oRs12 = CreateObject("ADODB.Recordset")
Set oRs13 = CreateObject("ADODB.Recordset")
Set oRs14 = CreateObject("ADODB.Recordset")
Set oRs15 = CreateObject("ADODB.Recordset")
Set oRs16 = CreateObject("ADODB.Recordset")
Set oRs17 = CreateObject("ADODB.Recordset")
Set oRs18 = CreateObject("ADODB.Recordset")
Set oRs19 = CreateObject("ADODB.Recordset")
Set oRs20 = CreateObject("ADODB.Recordset")
Set oRs21 = CreateObject("ADODB.Recordset")
Set oRs22 = CreateObject("ADODB.Recordset")
Set oRs23 = CreateObject("ADODB.Recordset")
Set oRs24 = CreateObject("ADODB.Recordset")
Set oRs25 = CreateObject("ADODB.Recordset")
Set oRs26 = CreateObject("ADODB.Recordset")
Set oRs27 = CreateObject("ADODB.Recordset")
Set oRs28 = CreateObject("ADODB.Recordset")

Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSql
Set oRs = oCom.Execute

Set oCom1 = CreateObject("ADODB.Command")
oCom1.CommandType = 1
Set oCom1.ActiveConnection = conn
oCom1.CommandText = sSql1

Set oRs1 = oCom1.Execute


Set oCom2 = CreateObject("ADODB.Command")
oCom2.CommandType = 1
Set oCom2.ActiveConnection = conn
oCom2.CommandText = sSql2
Set oRs2 = oCom2.Execute

Set oCom3 = CreateObject("ADODB.Command")
oCom3.CommandType = 1
Set oCom3.ActiveConnection = conn
oCom3.CommandText = sSql3
Set oRs3 = oCom3.Execute

Set oCom4 = CreateObject("ADODB.Command")
oCom4.CommandType = 1
Set oCom4.ActiveConnection = conn
oCom4.CommandText = sSql4
Set oRs4= oCom4.Execute

Set oCom5 = CreateObject("ADODB.Command")
oCom5.CommandType = 1
Set oCom5.ActiveConnection = conn
oCom5.CommandText = sSql5
Set oRs5= oCom5.Execute

Set oCom6 = CreateObject("ADODB.Command")
oCom6.CommandType = 1
Set oCom6.ActiveConnection = conn
oCom6.CommandText = sSql6
Set oRs6= oCom6.Execute

Set oCom7 = CreateObject("ADODB.Command")
oCom7.CommandType = 1
Set oCom7.ActiveConnection = conn
oCom7.CommandText = sSql7
Set oRs7= oCom7.Execute

Set oCom8 = CreateObject("ADODB.Command")
oCom8.CommandType = 1
Set oCom8.ActiveConnection = conn
oCom8.CommandText = sSql8
Set oRs8= oCom8.Execute

Set oCom9 = CreateObject("ADODB.Command")
oCom9.CommandType = 1
Set oCom9.ActiveConnection = conn
oCom9.CommandText = sSql9
Set oRs9= oCom9.Execute

Set oCom10 = CreateObject("ADODB.Command")
oCom10.CommandType = 1
Set oCom10.ActiveConnection = conn
oCom10.CommandText = sSql10
Set oRs10= oCom10.Execute

Set oCom11 = CreateObject("ADODB.Command")
oCom11.CommandType = 1
Set oCom11.ActiveConnection = conn
oCom11.CommandText = sSql11
Set oRs11= oCom11.Execute


Set oCom12 = CreateObject("ADODB.Command")
oCom12.CommandType = 1
Set oCom12.ActiveConnection = conn
oCom12.CommandText = sSql12
Set oRs12= oCom12.Execute


Set oCom13 = CreateObject("ADODB.Command")
oCom13.CommandType = 1
Set oCom13.ActiveConnection = conn
oCom13.CommandText = sSql13
Set oRs13= oCom13.Execute

Set oCom14 = CreateObject("ADODB.Command")
oCom14.CommandType = 1
Set oCom14.ActiveConnection = conn
oCom14.CommandText = sSql14
Set oRs14= oCom14.Execute

Set oCom15 = CreateObject("ADODB.Command")
oCom15.CommandType = 1
Set oCom15.ActiveConnection = conn
oCom15.CommandText = sSql15
Set oRs15= oCom15.Execute

Set oCom16 = CreateObject("ADODB.Command")
oCom16.CommandType = 1
Set oCom16.ActiveConnection = conn
oCom16.CommandText = sSql16
Set oRs16= oCom16.Execute

Set oCom17 = CreateObject("ADODB.Command")
oCom17.CommandType = 1
Set oCom17.ActiveConnection = conn
oCom17.CommandText = sSql17
Set oRs17= oCom17.Execute

Set oCom18 = CreateObject("ADODB.Command")
oCom18.CommandType = 1
Set oCom18.ActiveConnection = conn
oCom18.CommandText = sSql18
Set oRs18= oCom18.Execute

Set oCom19 = CreateObject("ADODB.Command")
oCom19.CommandType = 1
Set oCom19.ActiveConnection = conn
oCom19.CommandText = sSql19
Set oRs19= oCom19.Execute

Set oCom20 = CreateObject("ADODB.Command")
oCom20.CommandType = 1
Set oCom20.ActiveConnection = conn
oCom20.CommandText = sSql20
Set oRs20= oCom20.Execute

Set oCom21 = CreateObject("ADODB.Command")
oCom21.CommandType = 1
Set oCom21.ActiveConnection = conn
oCom21.CommandText = sSql21
Set oRs21 = oCom21.Execute

Set oCom22 = CreateObject("ADODB.Command")
oCom22.CommandType = 1
Set oCom22.ActiveConnection = conn
oCom22.CommandText = sSql22
Set oRs22 = oCom22.Execute

Set oCom23 = CreateObject("ADODB.Command")
oCom23.CommandType = 1
Set oCom23.ActiveConnection = conn
oCom23.CommandText = sSql23
Set oRs23 = oCom23.Execute

Set oCom24 = CreateObject("ADODB.Command")
oCom24.CommandType = 1
Set oCom24.ActiveConnection = conn
oCom24.CommandText = sSql24
Set oRs24= oCom24.Execute

Set oCom25 = CreateObject("ADODB.Command")
oCom25.CommandType = 1
Set oCom25.ActiveConnection = conn
oCom25.CommandText = sSql25
Set oRs25= oCom25.Execute

Set oCom26 = CreateObject("ADODB.Command")
oCom26.CommandType = 1
Set oCom26.ActiveConnection = conn
oCom26.CommandText = sSql26
Set oRs26= oCom26.Execute

Set oCom27 = CreateObject("ADODB.Command")
oCom27.CommandType = 1
Set oCom27.ActiveConnection = conn
oCom27.CommandText = sSql27
Set oRs27= oCom27.Execute

Set oCom28 = CreateObject("ADODB.Command")
oCom28.CommandType = 1
Set oCom28.ActiveConnection = conn
oCom28.CommandText = sSql28
Set oRs28= oCom28.Execute

Set oList = HMIRuntime.Screens("NewPdl0").ScreenItems("控件1")'''''''''''''''''''''''listview
oList.View =3
oList.ListItems.Clear
m =oRs.Fields.Count
oList.ColumnHeaders.Clear

oList.ColumnHeaders.Add , ,"时间"
oList.ColumnHeaders.Add , ,"班次"
oList.ColumnHeaders.Add , ,"1#秤"
oList.ColumnHeaders.Add , ,"2#秤"
oList.ColumnHeaders.Add , ,"3#秤"
oList.ColumnHeaders.Add , ,"4#秤"
oList.ColumnHeaders.Add , ,"5#秤"
oList.ColumnHeaders.Add , ,"6#秤"
oList.ColumnHeaders.Add , ,"7#秤"
oList.ColumnHeaders.Add , ,"8#秤"
oList.ColumnHeaders.Add , ,"9#秤"
oList.ColumnHeaders.Add , ,"10#秤"
oList.ColumnHeaders.Add , ,"11#秤"
oList.ColumnHeaders.Add , ,"12#秤"
oList.ColumnHeaders.Add , ,"13#秤"
oList.ColumnHeaders.Add , ,"14#秤"
oList.ColumnHeaders.Add , ,"1误差"
oList.ColumnHeaders.Add , ,"2误差"
oList.ColumnHeaders.Add , ,"3误差"
oList.ColumnHeaders.Add , ,"4误差"
oList.ColumnHeaders.Add , ,"5误差"
oList.ColumnHeaders.Add , ,"6误差"
oList.ColumnHeaders.Add , ,"7误差"
oList.ColumnHeaders.Add , ,"8误差"
oList.ColumnHeaders.Add , ,"9误差"
oList.ColumnHeaders.Add , ,"10误差"
oList.ColumnHeaders.Add , ,"11误差"
oList.ColumnHeaders.Add , ,"12误差"
oList.ColumnHeaders.Add , ,"13误差"
oList.ColumnHeaders.Add , ,"14误差"
oList.ColumnHeaders.Add , ,"一付用料总量"
oList.ColumnHeaders.Add , ,"一付料总误差" '列标题



If (m > 0 ) Then

oRs.MoveFirst
oRs1.MoveFirst
oRs2.MoveFirst
oRs3.MoveFirst
oRs4.MoveFirst
oRs5.MoveFirst
oRs6.MoveFirst
oRs7.MoveFirst
oRs8.MoveFirst
oRs9.MoveFirst
oRs10.MoveFirst
oRs11.MoveFirst
oRs12.MoveFirst
oRs13.MoveFirst
oRs14.MoveFirst
oRs15.MoveFirst
oRs16.MoveFirst
oRs17.MoveFirst
oRs18.MoveFirst
oRs19.MoveFirst
oRs20.MoveFirst
oRs21.MoveFirst
oRs22.MoveFirst
oRs23.MoveFirst
oRs24.MoveFirst
oRs25.MoveFirst
oRs26.MoveFirst
oRs27.MoveFirst
oRs28.MoveFirst

n = 0
Do While Not oRs1.EOF
Set oItem = oList.ListItems.Add()
l= CDate(oRs1.Fields(1).value)
k = DateAdd("h", 8, l)
oItem.Text =k'''''把时间写入listview的第0列
oItem.SubItems(1) = FormatNumber(oRs.Fields(2).value,1)''''''值班班次写入listview的第1列
oItem.SubItems(2) = FormatNumber(oRs1.Fields(2).value,2)'1#秤当前值写入第2列
oItem.SubItems(3) = FormatNumber(oRs2.Fields(2).value,2)'2#秤当前值写入第3列
oItem.SubItems(4) = FormatNumber(oRs3.Fields(2).value,2)'3#秤当前值写入第4列
oItem.SubItems(5) = FormatNumber(oRs4.Fields(2).value,2)'4#秤当前值写入第5列
oItem.SubItems(6) = FormatNumber(oRs5.Fields(2).value,2)'5#秤当前值写入第6列
oItem.SubItems(7) = FormatNumber(oRs6.Fields(2).value,2)'6#秤当前值写入第7列
oItem.SubItems(8) = FormatNumber(oRs7.Fields(2).value,2)'7#秤当前值写入第8列
oItem.SubItems(9) = FormatNumber(oRs8.Fields(2).value,2)'8#秤当前值写入第9列
oItem.SubItems(10) = FormatNumber(oRs9.Fields(2).value,2)'9#秤当前值写入第10列
oItem.SubItems(11) = FormatNumber(oRs10.Fields(2).value,2)'10#秤当前值写入第11列
oItem.SubItems(12) = FormatNumber(oRs11.Fields(2).value,2)'11#秤当前值写入第12列
oItem.SubItems(13) = FormatNumber(oRs12.Fields(2).value,2)'12#秤当前值写入第13列
oItem.SubItems(14) = FormatNumber(oRs13.Fields(2).value,2)'13#秤当前值写入第14列
oItem.SubItems(15) = FormatNumber(oRs14.Fields(2).value,2)'13#秤当前值写入第15列


err1=oRs1.Fields(2).value-oRs15.Fields(2).value
oItem.SubItems(16) = FormatNumber(err1,2)'误差1写入第16列
err2=oRs2.Fields(2).value - oRs16.Fields(2).value
oItem.SubItems(17) = FormatNumber(err2,2) '误差2写入第17列
err3=oRs3.Fields(2).value-oRs17.Fields(2).value
oItem.SubItems(18) = FormatNumber(err3,2)'误差3写入第18列
err4=oRs4.Fields(2).value - oRs18.Fields(2).value
oItem.SubItems(19) = FormatNumber(err4,2) '误差4写入第19列
err5=oRs5.Fields(2).value-oRs19.Fields(2).value
oItem.SubItems(20) = FormatNumber(err5,2)'误差5写入第20列
err6=oRs6.Fields(2).value - oRs20.Fields(2).value
oItem.SubItems(21) = FormatNumber(err6,2) '误差6写入第21列
err7=oRs7.Fields(2).value-oRs21.Fields(2).value
oItem.SubItems(22) = FormatNumber(err7,2)'误差7写入第22列
err8=oRs8.Fields(2).value - oRs22.Fields(2).value
oItem.SubItems(23) = FormatNumber(err8,2) '误差8写入第23列
err9=oRs9.Fields(2).value-oRs23.Fields(2).value
oItem.SubItems(24) = FormatNumber(err9,2)'误差9写入第24列
err10=oRs10.Fields(2).value - oRs24.Fields(2).value
oItem.SubItems(25) = FormatNumber(err10,2) '误差10写入第25列
err11=oRs11.Fields(2).value-oRs25.Fields(2).value
oItem.SubItems(26) = FormatNumber(err11,2)'误差11写入第26列
err12=oRs12.Fields(2).value - oRs26.Fields(2).value
oItem.SubItems(27) = FormatNumber(err12,2) '误差12写入第27列
err13=oRs13.Fields(2).value-oRs27.Fields(2).value
oItem.SubItems(28) = FormatNumber(err13,2)'误差13写入第28列
err14=oRs14.Fields(2).value - oRs28.Fields(2).value
oItem.SubItems(29) = FormatNumber(err14,2) '误差14写入第29列

he=oRs1.Fields(2).value+oRs2.Fields(2).value+oRs3.Fields(2).value+oRs4.Fields(2).value+oRs5.Fields(2).value+oRs6.Fields(2).value+oRs7.Fields(2).value+oRs8.Fields(2).value+oRs9.Fields(2).value+oRs10.Fields(2).value+oRs11.Fields(2).value+oRs12.Fields(2).value+oRs13.Fields(2).value+oRs14.Fields(2).value
oItem.SubItems(30)=FormatNumber(he,2)'用料总量写入第30列
esum=err1+err2+err3+err4+err5+err6+err7+err8+err9+err10+err11+err12+err13+err14
oItem.SubItems(31)=FormatNumber(esum,2)'总误差写入第31列

n = n + 1

If n>15 Then
oList.ListItems.remove 1
End If

oRs.MoveNext
oRs1.MoveNext
oRs2.MoveNext
oRs3.MoveNext
oRs4.MoveNext
oRs5.MoveNext
oRs6.MoveNext
oRs7.MoveNext
oRs8.MoveNext
oRs9.MoveNext
oRs10.MoveNext
oRs11.MoveNext
oRs12.MoveNext
oRs13.MoveNext
oRs14.MoveNext
oRs15.MoveNext
oRs16.MoveNext
oRs17.MoveNext
oRs18.MoveNext
oRs19.MoveNext
oRs20.MoveNext
oRs21.MoveNext
oRs22.MoveNext
oRs23.MoveNext
oRs24.MoveNext
oRs25.MoveNext
oRs26.MoveNext
oRs27.MoveNext
oRs28.MoveNext'''''''''''''''''''''''''''''''''''''''''''''''数据向下读取一行

Loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



oRs.Close
Set oRs = Nothing
oRs1.Close
Set oRs1 = Nothing
oRs2.Close
Set oRs2 = Nothing
oRs3.Close
Set oRs3 = Nothing
oRs4.Close
Set oRs4 = Nothing
oRs5.Close
Set oRs5 = Nothing
oRs6.Close
Set oRs6 = Nothing
oRs7.Close
Set oRs7 = Nothing
oRs8.Close
Set oRs8 = Nothing
oRs9.Close
Set oRs9 = Nothing
oRs10.Close
Set oRs10 = Nothing
oRs11.Close
Set oRs11 = Nothing
oRs12.Close
Set oRs12 = Nothing
oRs13.Close
Set oRs13 = Nothing
oRs14.Close
Set oRs14 = Nothing
oRs15.Close
Set oRs15 = Nothing
oRs16.Close
Set oRs16 = Nothing
oRs17.Close
Set oRs17 = Nothing
oRs18.Close
Set oRs18 = Nothing
oRs19.Close
Set oRs19 = Nothing
oRs20.Close
Set oRs20 = Nothing
oRs21.Close
Set oRs21 = Nothing
oRs22.Close
Set oRs22 = Nothing
oRs23.Close
Set oRs23 = Nothing
oRs24.Close
Set oRs24 = Nothing
oRs25.Close
Set oRs25 = Nothing
oRs26.Close
Set oRs26 = Nothing
oRs27.Close
Set oRs27 = Nothing
oRs28.Close
Set oRs28 = Nothing





conn.Close
Set conn = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''关闭记录集，数据库连接




End If
End Function