请问：使用EXCEL宏读取SQL SERVER的数据，然后把数据填充到EXCEL中

请教：使用EXCEL宏读取SQL SERVER的数据，然后把数据填充到EXCEL中
如题，通过EXCEL宏编程来，使用数据对象ADO访问SQL数据库，从而进行数据查询，并将查询的数据返回到EXCEL中。

谁有代码给一下，谢谢啦，急用。

[解决办法]
没弄过SQL数据库的，下面的代码是查询Excel表的，差不多的代码

VBScript code

Sub test()    Dim Sql$    Set conn = CreateObject("adodb.connection")    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName    Sql = "Select * from [Sheet1$] where 字段='a'"    Sheets(2).Range("a2").CopyFromRecordset conn.Execute(Sql)    conn.Close    Set conn = NothingEnd Sub
[解决办法]
看出哪边有明显的错误呀
运行后报什么错误？