各位帮我看一下连接数据库的代码哪里有错了？

Question

dim conn as oldebconnection
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 reg",conn)
da.Fill(ds,"reg1")            <——————执行到这里报错

Answer 1

change dim ds as new DataSet to
dim ds as DataSet

Answer 2

奇怪，我在DW里面直接写代码就没有错，在VS.net里面写再运行就报错，错误好像是ds为空，现在我这台机器没装vs.net

Answer 3

dim ds as new DataSet（"reg1"）