Alterando conexão para DSN.

[mkboy 1]

Ola amigos,gostaria de alterar esta conexão para DSN.Como faço?

'Conecta ao banco.Set conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/dados/cadastro.mdb")conn.open strconn'Faz a busca na tabela.Set rs = Server.CreateObject("ADODB.Recordset")strrs = "Select * from info where tipo like'%" & busca2 & "%' order by tipo"rs.open strrs, conn'Verifica se foi encontrado algoIf rs.EOF Thenerro = 1mensagem "Sua busca falhou nada encontrado"End if'Pega o total de registro encontradototal = rs.recordcount%><%If erro <> "" ThenResponse.Write mensagemEnd ifDo While not rs.Eof%>        <tr>           <td width="59%"><%=rs("Email") %></td>    </tr>    <%rs.movenextlooprs.closeconn.close%>

[Salgado 4]

Na sua strconn mude o seguinte:

DBQ="& Server.MapPath("/dados/cadastro.mdb")

para:

DSN="Nome da DSN"

 

Valeu?