连接数据库的代码报错：（

Question

dim conn as oledbconnection
conn=new oledbconnection
conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("user.mdb")
conn.Open
dim da as OledbDataAdapter
dim ds as new DataSet
da=new OledbDataAdapter("select * from tmb",conn)
da.Fill(ds,"tmb1")            <——————执行到这里报错错误信息：
Server Error in '/test' Application.
--------------------------------------------------------------------------------Value cannot be null. Parameter name: dataSet 
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.ArgumentNullException: Value cannot be null. Parameter name: dataSetSource Error: 
Line 221:        da = New OleDbDataAdapter("select * from tmb", conn)
Line 222:        Dim ds As DataSet
Line 223:        da.Fill(ds, "tmb1")
Line 224:    End Sub
Line 225:
 Source File: E:\mysite\test\WebForm1.aspx.vb    Line: 223 Stack Trace: 
[ArgumentNullException: Value cannot be null.
Parameter name: dataSet]
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, String srcTable)
   test.WebForm1.Page_Load(Object sender, EventArgs e) in E:\mysite\test\WebForm1.aspx.vb:223
   System.Web.UI.Control.OnLoad(EventArgs e)
   System.Web.UI.Control.LoadRecursive()
   System.Web.UI.Page.ProcessRequestMain() 
--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:1.1.4322.573; ASP.NET Version:1.1.4322.573

Answer 1

加一句试试看
 Dim ds As DataSet = New DataSet

Answer 2

dim ds as new DataSet//这里问题
Dim ds As DataSet = New DataSet

Answer 3

dim ds as new DataSet把一句寫成dim ds as dataset就好了

Answer 4

Dim ds As DataSet改成
Dim ds As DataSet=new DataSet
出错的原因是dataset没有初始化

Answer 5

是呀，DataSet未初始化， 當然會出錯:
Dim ds As DataSet-->Dim ds As DataSet=New DataSet

Answer 6

dim da as OledbDataAdapter
dim ds as new DataSet
da=new OledbDataAdapter("select * from tmb",conn)
da.Fill(ds,"tmb")