Function SqlToArr(tname$)   '查询结果到数组
    Dim cnn As Object    'New ADODB.Connection
    Dim rs As Object, s$  'New ADODB.Recordset
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0';Data Source =" & ThisWorkbook.FullName
    'On Error Resume Next
    Set rs = cnn.Execute(s)
    SqlToArr = Application.Transpose(rs.GetRows) '转置为excle格式的行列
    Set cnn = Nothing: Set rs = Nothing
End Function