Registros não aparecem

Pessoal,

Estou migrando do access para o Mysql. Efetuei a instalação do MySQL Workbench, instalei o MySQL, criei o banco e suas respectivas tabelas, criei a conexão ODBC, mas quando eu rodo o código ASP os registros não aparecem. O que pode está acontecendo já que não gera nenhuma mensagem de erro de script? A tela simplesmente fica sem dados, completamente branca.

Segue o código:

<%
Dim conexao
Dim recordset
Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Driver={MySQL ODBC 5.2 Driver};Server=localhost;Database=compras;User=root; Password=root;Option=3;"
Set recordset = conexao.Execute("SELECT * FROM tabela")
%>
<table border="1">
<%
Do While Not recordset.EOF
%>

<tr>
<td><%= recordset.Fields("cod_fn").Value %></td>
<td><%= recordset.Fields("nome_fn").Value %></td>
</tr>

<%
recordset.MoveNext
Loop
%>
</table>
<%
'Não esquecer de fechar a conexão
recordset.Close
Set recordset = Nothing
conexao.Close
Set conexao = Nothing
%>