rotina p\ acessar banco de dados .

GENTE .. tava tentando fazer um código p\ acessar um humilde bd access ....mas n ta funcionando .

a rotina é essa ...

sei q é coisa simples .. mas so mt novo nessa área ... ajudem me por favor :

o nome do meu arquivo access é db1 o nome da minha tabela é tabela1 e bd1_dsn minha dsn.

<%

set conexao = server.CreateObject("ADODB.connection" )

set registros = Server.CreateObject("ADODB.Recordset" )

conexao.Open "provider=Microsoft.jet.OLEDB.4.0;DataSource="&Server.MapPath("db1.mdb")&";"

set registros.ActiveConnection = conexao

registros.open "select *from tabela1;","dsn=bd1_dsn";

%>