<%@ Page Language="VB" src="bin\test.vb"%>
<%@ Import Namespace="Num1" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System" %>
<script language="VB" runat="server">
   Dim Sql1 As String = "select top 10 * from News"
   Dim MyDB As SQLDB = New SQLDB()
   MyDB.strSQL=Sql1
   MyDb.print1
</script>
<center>
下面是利用DataGrid显示news表中一些内容!
<br><br>
<asp:DataGrid ID="MyGrid" runat="server" Width="775" BackColor="#CCFFCC" BorderColor="black" Font-Size="12px" />
</center>上面是出错文件:下面是test.vbImports System
Imports System.Configuration
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic.Strings
Imports System.MathNamespace Num1Public Class SQLDB
Public dd as String
Public strSQL As String
Public Sub Print1()
             .....
End Sub
End Class
    
End Namespace出错信息:“/”应用程序中的服务器错误。
--------------------------------------------------------------------------------编译错误 
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。 编译器错误信息: BC30188: 需要声明。源错误:
 行 6:     Dim Sql1 As String = "select top 10 * from News"
行 7:     Dim MyDB As SQLDB = New SQLDB()
行 8:     MyDB.strSQL=Sql1
行 9:     MyDb.print1
行 10: </script>
 源文件: H:\\net\测试类连接.aspx    行: 8