Yes, you are right, this is the code:

Dim DB2Connection As New OdbcConnection()

Dim DB2DataReader As OdbcDataReader

StrConn = "Dsn=AS400;system=CLIENT53;cmt=0;dbq=" & AS400Lib & ";nam=0;dft=5;dsp=1;tft=0;tsp=0;dec=0;xdynamic=1;recblock=2;blocksize=256;scrollable=0;translate=0;lazyclose=1;libview=0;remarks=0;conntype=0;sorttype=0;languageid=ENU;sortweight=0;prefetch=0;dftpkglib=QGPL;mgdsn=0"

DB2Connection.ConnectionString = StrConn

Dim DB2Command As New OdbcCommand()

SqlStr = "SELECT FAC200.fac3030.FNUFAC,facts.fnuFAC...