怎样读取数据库：以EXCEL表中的一列数据作为查询条件，到SQL数据库中取数并填充到EXCEL里；
SQL Server中学生信息表名：Table_1

Private Sub CommandButton1_Click()
Dim cn, rs As Object
Dim strCon As String
Dim sql As String
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
strCon = "provider=sqloledb;data source=127.0.0.1;User id=sa;database=myData"
cn.Open strCon
sql = "selsect * from Table_1"
rs.Open sql, cn, 1, 3
sheet1.Range("a2").CopyFromRecordset rs
rs.Close
cn.Close
End Sub
还是有问题，能帮我改下吗？谢谢！

改了，提示有语法错误，能帮我看下是哪里问题么？

帮忙看看问题在哪，谢谢！

我把日志文件放进去了，帮我看看，代码要怎样修改。

可以用了，我想把他改下，就是只根据指定ID来调用后面的信息，比如，ID那列是“W3”，我点查询，只出现W3后面的信息，其他的不要调用出来。应该怎么改，谢谢！

我的意思根据A列这行里面的ID，引出后面的数据，不一定是W3，可能是W4，后者W5，你写代码的时候并不知道ID的值，而是后期我填入A列的值来引出数据。。