Nome da fonte de dados não encontrado

Galera quando eu mando excluir aparece a seguinte mesnagem no IE

porem já tentei de outras formas e não estou conseguindo.

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

/deletado_imovel.asp, line 123

Alinha em negrito é a que esta dando o problema (123).

>
<%

<%

' Recuperando os Dados Digitados ----------------------

id_imovel = request.form("id_imovel")

%>

set conn=server.createobject("adodb.connection")

set rs=server.createobject("adodb.recordset")

conn.open dsn

sql = "delete * from imovel where id_imovel="&id_imovel

rs.open sql,conn

%>

No inicio da pagina está a declaração da conexao com o banco de dados

>
<%

dim dsn

dsn="DBQ=" & Server.Mappath("..\bd\bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

sub close()

rs.close

set rs=nothing

conn.close

set conn=nothing

end sub

%>

Alguem pode me ajudar ?

Obrigado :unsure: