"Connection Problem of MS Interdev to AS/400" Help!

[Plez]

I have a problem connecting to AS/400 using Visual Interdev.
But if I'll be connecting to a SQL Server, there seems to be no problem. I am using a Connection string on both. But I really having a difficulty when it comes to AS400. Is there something special configuration for that? My current setup is,I have an Web Server and I have a client PC where I develop my Web Page. I have tried creating an ODBC on my client pc but Visual Interdev says it can't find the DSN name. I tried to make an ODBC at the Web Server but the same problem occured. My project in Interdev in in Master Mode.

Sample Code in my Interdev for my connection.

ConStr = "Provider=MSDASQL.1;Driver="
ConStr = ConStr & "Client Access ODBC Driver (32-bit);Password=MOSES;"
ConStr = ConStr & "Persist Security Info=False;UID=OFFICER;Extended"
ConStr = ConStr & "Properties="";SYSTEM=S102AK4M;CMT=0;"
ConStr = ConStr & "DBQ=TLIBDF,HD1100PD,HD1100PO;NAM=0;"
ConStr = ConStr & "DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;"
ConStr = ConStr & "RECBLOCK=2;BLOCKSIZE=32;SCROLLABLE=0;"
ConStr = ConStr & "TRANSLATE=1;LAZYCLOSE=1;LIBVIEW=0;"
ConStr = ConStr & "REMARKS=1;CONNTYPE=0;SORTTYPE=0;"
ConStr = ConStr & "PREFETCH=0;DFTPKGLIB=QGPL;LANGUAGEID=ENU;"
ConStr = ConStr & "SORTWEIGHT=0;SSL=2;MAXFIELDLEN=32;"
ConStr = ConStr & "COMPRESSION=1;ALLOWUNSCHAR=0;"
ConStr = ConStr & "SEARCHPATTERN=0;MGDSN=0;"""
Set Con1 = Server.CreateObject("ADODB.Connection&quot

Con1.open Constr

set rs=Server.CreateObject("ADODB.recordset&quot
rs.Open "Select PMPNO from TLIBDF.P1PARTP where PMPNO='PA17041630LP'", conn