烟台乳山部队番号:sql的问题

<%
dim objconn
set objconn=Server.CreateObject("ADODB.Connection")
objconn.open " driver={SQL Server}; DSN=trade; uid=sa; pwd=sa; database=trade"

strsql="select 姓名,年龄 from table1"
set rs=objconn.execute(strsql)
response.Write "<tr>"
for i=0 to rs.fields.count-1
response.Write "<th>" & rs.fields(i).name & "</th>"
next
response.Write "</tr>"
do while not rs.eof
response.Write "<tr>"
for i=0 to rs.fields.count-1
response.Write "<td>" & rs.fields(i).value & "</td>"
next
response. write "</tr>"
rs.movenext
loop
rs.close
set rs=nothing
objconn.close
set objconn=nothing
%>

运行结果提示错误：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC SQL Server Driver]0800108001没有提供任何 DSN 或 SERVER 关键字

/frist.asp，行 6