ya soluciones mi pobrema y muchas graxia a ahora me corre muy bien el ejemplo de solo lectura es
<html>
<head>
<title>lectura de as/400</title>
</head>
<body>
<h1><div align="center">Lectura de AS/400</div></h1>
<br>
<br>
<%
Set conectar = Server.CreateObject("ADODB.Connection")
'conectar.open "cobranza_sql"
conectar.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\cobranza2.mdb"
sSQL="Select * From I_as400 Order By cod"
set RS=conectar.execute(sSQL)
%>
<table width="641" border="1" align="center">
<tr>
<th width="100">Codigo</th>
<th width="100">Nombre</th>
<th width="101">Descripcion</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<th><%=RS("cod")%></th>
<th><%=RS("nombre")%></th>
<th><%=RS("descripcion")%></th>
</tr>
<%
RS.MoveNext
Loop
conectar.close
%>
</table>
</body>
</html>