Acesso a MDB - conversão.

Preciso desenvolver uma rotina rápida em vb.net para varrer uma tabela.

no VB o código era o seguinte:

dim BDARQUIVO as new adodb.connections

dim BDTABELA as new adodb.recordset

BDARQUIVO.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ARQUIVO.mdb")

BDTABELA = BDARQUIVO.Execute("select * from PRODUTOS")

Do While Not BDTABELA.EOF

MsgBox(BDTABELA("NOME"))

bdtabela.MoveNext()

Loop

--------------------------------

Mas não estou conseguindo nada no VB.NET.... alguem poderia dar uma ajuda?

Mesmo com o import adodb e referencia... não funciona.