erro ao realizar consulta banco de dados db2 iSeries

[diego.martins932 0]

Bom dia pessoal,

Estou criando um aplicativo para acessar um banco de dados db2 iSeries via DAO. A conexão pelo visual studio ocorre com sucesso. Porém quando tento realizar um select ocorre o erro abaixo:

{"SQL0204: LOCAL, na 'tabela', tipo *FILE, não foi encontrado.

Causa . . . . . : LOCAL, na 'tabela', tipo *FILE, não foi encontrado. Se o nome do membro for *ALL, a tabela não será particionada. Se esta for uma instrução ALTER TABLE e o tipo *N, uma restrição ou restrição não foi encontrada. Se esta não for uma instrução ALTER TABLE e o tipo for *N, uma função, um procedimento, um acionador ou um objeto de seqüência não foi localizado. Se uma função não foi encontrada, LOCAL será o programa de serviços que contém a função. A função não será encontrada, a menos que o nome externo e o nome de uso correspondam exatamente. Examine o registro de jobs para uma mensagem que fornece detalhes adicionais sobre qual nome de função está sendo pesquisado e nome que não correspondia. Recuperação . . : Altere o nome e tente o pedido novamente. Se o objeto for um grupo de nós, certifique-se de que o produto DB2 Multisystem esteja instalado no sistema e crie um grupo de nós com o comando de CL CRTNODGRP. Se uma função externa não foi localizada, certifique-se de que este seja o caso EXTERNAL NAME na instrução CREATE FUNCTION corresponda exatamente ao caso do nome exportado pelo programa de serviços."}

[Dan Borges 26]

Poste o código referente ao acesso ao banco de dados.

[diego.martins932 0]

Public Function SelectFull() As List(Of Local)

 

Dim comando As New OleDbCommand

comando.Connection = conexao2

comando.CommandType = CommandType.Text

Dim sql As New StringBuilder

sql.Append("select * from local")

comando.CommandText = sql.ToString

Dim Reader As OleDbDataReader = comando.ExecuteReader()

 

 

Dim Locais As New List(Of Local)

While Reader.Read

Dim objLocal As New Local

'objOrgDest.cod_orgdest = Reader("cod_orgdest")

objLocal.locad = Reader("locad")

objLocal.lodes = Reader("lodes")

objLocal.loesta = Reader("loesta")

objLocal.locla = Reader("locla")

Locais.Add(objLocal)

End While

 

 

Return Locais

 

 

End Function

 

 

String de conexão: Provider=IBMDA400;Data Source=200.0.x.x;User ID=xxxxxx;Password=xxxxx;

 

 

Public Shared Function GetConexao() As OleDbConnection

Dim conexao As New OleDbConnection

 

 

conexao.ConnectionString = StringConexao

conexao.Open()

 

 

Return conexao

End Function

Obs.: Já tentei pelas 2 classes abaixo:

Imports IBM.Data.DB2.iSeries

Imports System.Data.OleDb