are   you   sure   the   assembly   referenced   is   the   right   Microsoft.VisualBasic.dll?   not   the   one   for   the   compact   framework?

是不是要把mdb.dll重新编译一下??

去掉原来的引用，再加上正确的Microsoft.VisualBasic，重新编译

mdb.vb源文件，编译后报错，汗！！  
  1。D:Documents   and   SettingsAdministratorMy   DocumentsVisual   Studio   ProjectsClassLibrary1Mdb.vb(39):   所有参数如果可以都必须显式类型化。  
  2。D:Documents   and   SettingsAdministratorMy   DocumentsVisual   Studio   ProjectsClassLibrary1Mdb.vb(53):   没有为“Public   Function   GetDataView(SelectSQL   As   String)   As   System.Data.DataView”的参数“SelectSQL”指定参数。  
   
   
  mdb.vb源文件：  
   
  Imports   System  
  Imports   System.Data  
  Imports   System.Data.OleDb  
   
  Namespace   webTest  
          Public   Class   Mdb  
                  Private   Conn   As   OleDbConnection  
                  Private   Index   As   Integer  
   
                  Public   Sub   New(ByVal   DataServer   As   String,   ByVal   DataLib   As   String,   ByVal   DataUse   As   String,   ByVal   UsePwd   As   String)  
                          Dim   ConnStr   =   "Provider=SQLOLEDB;server="   &   DataServer   &   ";uid="   &   DataUse   &   ";pwd="   &   UsePwd   &   ";database="   &   DataLib  
                          Conn   =   New   OleDbConnection(ConnStr)  
                          Conn.Open()  
                  End   Sub  
                  Public   Sub   Close()  
                          conn.close()  
                  End   Sub  
                  Public   Function   GetDataReader(ByVal   SelectSQL   As   String)   As   OleDbDataReader  
                          Dim   Cmd   As   OleDbCommand  
                          Cmd   =   New   OleDbCommand(SelectSQL,   Conn)  
                          GetDataReader   =   Cmd.ExecuteReader()  
                  End   Function  
   
                  Public   Function   GetDataView(ByVal   SelectSQL   As   String)   As   DataView  
                          Dim   Cmd   As   OleDbCommand  
                          Dim   ds   As   DataSet  
                          Dim   TableName   As   String  
   
                          Cmd   =   New   OleDbCommand(SelectSQL,   Conn)  
                          Index   +=   1  
                          TableName   =   "Table"   &   Index  
                          Dim   Adapter   As   OleDbDataAdapter   =   New   OleDbDataAdapter  
                          Adapter.SelectCommand   =   Cmd  
                          ds   =   New   DataSet  
                          Adapter.Fill(ds,   TableName)  
                          GetDataView   =   New   DataView(ds.Tables(TableName))  
                  End   Function  
   
                  Public   Function   GetSortedDataView(ByVal   SelectSQL   As   String,   ByVal   SortFied)   As   DataView  
                          Dim   Cmd   As   OleDbCommand  
                          Dim   ds   As   DataSet  
                          Dim   TableName   As   String  
                          Dim   DV   As   DataView  
                          Cmd   =   New   OleDbCommand(SelectSQL,   Conn)  
                          Index   +=   1  
                          TableName   =   "Table"   &   Index  
                          Dim   Adapter   As   OleDbDataAdapter   =   New   OleDbDataAdapter  
                          Adapter.SelectCommand   =   Cmd  
                          ds   =   New   DataSet  
                          Adapter.Fill(ds,   TableName)  
                          DV   =   New   DataView(ds.Tables(TableName))  
                          DV.Sort   =   SortFied  
                          GetDataView   =   DV  
                  End   Function  
   
                  Public   Function   GetDataTable(ByVal   SelectSQL   As   String)   As   DataTable  
                          Dim   Cmd   As   OleDbCommand  
                          Dim   ds   As   DataSet  
                          Dim   TableName   As   String  
   
                          Cmd   =   New   OleDbCommand(SelectSQL,   Conn)  
                          Index   +=   1  
                          TableName   =   "Table"   &   Index  
                          Dim   Adapter   As   OleDbDataAdapter   =   New   OleDbDataAdapter  
                          Adapter.SelectCommand   =   Cmd  
                          ds   =   New   DataSet  
                          Adapter.Fill(ds,   TableName)  
                          GetDataTable   =   ds.Tables(TableName)  
                  End   Function  
   
                  Public   Sub   ExecuteSQL(ByVal   ActionQuery   As   String)  
                          Dim   Cmd   As   OleDbCommand  
                          Cmd   =   New   OleDbCommand(ActionQuery,   Conn)  
                          Cmd.ExecuteNonQuery()  
                  End   Sub  
   
          End   Class  
  End   Namespace

是不是版本的问题，我这些002年在vs-bate版没一点问题，现在找不到bate版了，在vs2003中就出这样的问题,唉！

Public   Function   GetSortedDataView(ByVal   SelectSQL   As   String,   ByVal   SortFied   as   String)   As   DataView  
                          ....  
                          DV.Sort   =   SortFied  
                          GetSortedDataView   =   DV  
  '   return   DV  
                  End   Function  
 

mdb.dll   重新编译后又出现：  
   
  “/webtest”应用程序中的服务器错误。  
  --------------------------------------------------------------------------------  
   
  编译错误    
  说明:   在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。    
   
  编译器错误信息:   BC30182:   需要类型。  
   
  源错误:  
   
     
   
  行   86：               dim   i,j,h   as   integer  
  行   87：               dim   subject(50),mySubject,myItem   as   string    
  行   88：               dim   db   as   mdb=   new   mdb("wife","yunliao","hnTest","79418")  
  行   89：               Message1.text   ="   "  
  行   90：               dim   dt   as   dataTable=db.GetDataTable("select   *   from   Muser   where   Mname='"&   Uname.text   &"'   and   Mpassword='"&   Upwd.text   &"'")  
     
   
  源文件:   d:inetpubwwwrootwebtestDefault.aspx         行:   88    
   
   
   
  显示详细的编译器输出:  
   
   
  D:WINNTsystem32>   "d:winntmicrosoft.netframeworkv1.1.4322vbc.exe"   /t:library   /utf8output   /R:"d:winntassemblygacsystem.web.services1.0.5000.0__b03f5f7f11d50a3asystem.web.services.dll"   /R:"d:winntassemblygacsystem.xml1.0.5000.0__b77a5c561934e089system.xml.dll"   /R:"d:winntassemblygacsystem.web.mobile1.0.5000.0__b03f5f7f11d50a3asystem.web.mobile.dll"   /R:"d:winntassemblygacsystem.drawing1.0.5000.0__b03f5f7f11d50a3asystem.drawing.dll"   /R:"d:winntassemblygacsystem.data1.0.5000.0__b77a5c561934e089system.data.dll"   /R:"d:winntassemblygacsystem.enterpriseservices1.0.5000.0__b03f5f7f11d50a3asystem.enterpriseservices.dll"   /R:"d:winntmicrosoft.netframeworkv1.1.4322temporary   asp.net   fileswebtestee261252e3461460assemblydl20c288daab0d4815d_3c4cc601mdb.dll"   /R:"d:winntmicrosoft.netframeworkv1.1.4322temporary   asp.net   fileswebtestee261252e3461460_mu7fth8.dll"   /R:"d:winntassemblygacsystem.web1.0.5000.0__b03f5f7f11d50a3asystem.web.dll"   /R:"d:winntassemblygacsystem1.0.5000.0__b77a5c561934e089system.dll"   /out:"D:WINNTMicrosoft.NETFrameworkv1.1.4322Temporary   ASP.NET   Fileswebtestee261252e34614608kqqysuz.dll"   /D:DEBUG=1   /debug+   /win32resource:"D:WINNTMicrosoft.NETFrameworkv1.1.4322Temporary   ASP.NET   Fileswebtestee261252e34614608kqqysuz.res"     "D:WINNTMicrosoft.NETFrameworkv1.1.4322Temporary   ASP.NET   Fileswebtestee261252e34614608kqqysuz.0.vb"  
   
   
  Microsoft   (R)   Visual   Basic   .NET   编译器版本   7.10.3052.4  
  用于   Microsoft   (R)   .NET   Framework   版本   1.1.4322.573  
  版权所有   (C)   Microsoft   Corporation   1987-2000。保留所有权利。  
   
  D:WINNTMicrosoft.NETFrameworkv1.1.4322Temporary   ASP.NET   Fileswebtestee261252e34614608kqqysuz.0.vb(31)   :   error   BC30466:   无法找到   Imports“webTest”的命名空间或类型“webTest”。  
   
  Imports   webTest  
                  ~~~~~~~  
  d:inetpubwwwrootwebtestDefault.aspx(88)   :   error   BC30182:   需要类型。  
   
              dim   db   as   mdb=   new   mdb("wife","yunliao","hnTest","79418")  
                                  ~~~                                                                                          
   
     
   
   
   
  显示完整的编译源:  
   
   
  行   1：         '------------------------------------------------------------------------------  
  行   2：         '   <autogenerated>  
  行   3：         '           This   code   was   generated   by   a   tool.  
  行   4：         '           Runtime   Version:   1.1.4322.573  
  行   5：         '  
  行   6：         '           Changes   to   this   file   may   cause   incorrect   behavior   and   will   be   lost   if    
  行   7：         '           the   code   is   regenerated.  
  行   8：         '   </autogenerated>  
  行   9：         '------------------------------------------------------------------------------  
  行   10：        
  行   11：       Option   Strict   Off  
  行   12：       Option   Explicit   On  
  行   13：        
  行   14：       Imports   ASP  
  行   15：       Imports   Microsoft.VisualBasic  
  行   16：       Imports   System  
  行   17：       Imports   System.Collections  
  行   18：       Imports   System.Collections.Specialized  
  行   19：       Imports   System.Configuration  
  行   20：       Imports   System.Data  
  行   21：       Imports   System.Data.Oledb  
  行   22：       Imports   System.Text  
  行   23：       Imports   System.Text.RegularExpressions  
  行   24：       Imports   System.Web  
  行   25：       Imports   System.Web.Caching  
  行   26：       Imports   System.Web.Security  
  行   27：       Imports   System.Web.SessionState  
  行   28：       Imports   System.Web.UI  
  行   29：       Imports   System.Web.UI.HtmlControls  
  行   30：       Imports   System.Web.UI.WebControls  
  行   31：       Imports   webTest  
  行   32：        
  行   33：       Namespace   ASP  
  行   34：                
   
            。。。。。。。