Erro ADODB VB.NET com Progress

Temos uma aplicação desenvolvida em VB.Net que necessita de conexão via ODBC com o banco Progress 10.2B. Quando vou popular o Recordset é apresentado o seguinte erro:
[DataDirect][ODBC Progress OpenEdge Wire Protocol Driver]Error in Row.

O código da aplicação segue abaixo:

Dim conn as New ADODB.Connection
Dim rs as New ADODB.Recordset
conn.Open("progress","sysprogress","sysprogress") 'progress é o DSN criado com o Driver DataDirect da Progress.
v_sql = "SELECT * FROM PUB." & chr$(34) & "teste" & chr$(34) 'Chr$ representa aspas dupla
rs.Open(v_sql,conn)
msgbox(rs.Fields(0))
conn.close
rs.close

Agradeceria qualquer ajuda a respeito,