Sub OnClick(ByVal Item)                                                

Dim conn,oCom,rst1,sel1,mysql1

'On Error Resume Next

Dim group1

Dim m,i,j,k,columcount,addheader

m=0

'---------------------数据库建立连接 ADODB---------------------'

Set conn=CreateObject("ADODB.Connection")

Set rst1=CreateObject("ADODB.Recordset")

'---------------------连接数据库，输入账号及密码---------------------'

conn.Open "DSN=refire_mzDB;uid=sa;pwd=refire_mz;"

'---------------------查询数据库---------------------'

   sel1= "SELECT * FROM [dbo].[Table1]"'读取字段SN 赋予Sell

Set rst1=conn.Execute(sel1)

rst1.movefirst

columcount=rst1.fields.count

Do While Not rst1.EOF 

m=m+1

rst1.movenext

Loop

Msgbox m

Dim mysreadsheet,myworksheet

rst1.movefirst

Dim mycolumns 

i=2

Set mysreadsheet=ScreenItems("控件1")

For addheader=1 To columcount

mysreadsheet.rows(1).Cells(addheader)=CStr(rst1.fields(addheader-1).name)

Next

Do While Not rst1.EOF 

mysreadsheet.rows(i).Cells(1)=CStr(rst1.fields(0).value)

For addheader=2 To columcount

    mysreadsheet.rows(i).Cells(addheader)=CStr(rst1.fields(addheader-1).value)

    Next

i=i+1

rst1.movenext

Loop

' 关闭记录集

rst1.Close ' 释放指针

' 关闭数据库连接

conn.Close ' 释放连接

Set rst1 = Nothing ' 断开句柄

Set conn = Nothing ' 断开连接

MsgBox("查询结束")

End Sub