Ho effettuato la correzione....
l'errore è questo:
error
Messaggio di errore del compilatore: BC30390: "System.Data.OleDb.OleDbDataReader.Private Overloads Sub New(connection As System.Data.OleDb.OleDbConnection, command As System.Data.OleDb.OleDbCommand, depth As Integer, chapter As System.IntPtr)" non è accessibile in questo contesto perché è "Private".
 il codice modificato è:
Ho comunque un dubbio su dove passare username e password...?
code
<@ Page Language="VB" %>

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<html>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim objconn As new OleDbConnection("Provider=IBMDA400;Data Source=192.168.0.51;")
Dim objCmd As new OleDbCommand("Select * From YFILEURO.TA00000F")

Dim objReader as new OleDbDataReader

objConn.Open ObjConn(,"WEBUSR","WODSWEB")
objReader=ObJCmd.ExecuteReader

While objReader.Read
response.write (ObjReader.Getstring(0)&"
")
end While
ObjConn.close
end sub
</script>
<body>
</body>
</html>