送分的问题？

Question

dim ds as dataset()
错了！
没有（）

Answer 1

TO  yohomonkey(ht): 把DATASET改了为何没结果，只有库的标题？显示一个数字“1"

Answer 2

dim mystr,mysql as string
 dim myconn as sqlconnection
 dim myadapter as new sqldataAdapter()
 dim ds as dataset()
 
 mystr="server=localhost;pwd=;uid=sa;database=pubs"
 myconn=new sqlconnection(mystr)
 myconn.open() Dim sqlCMD As New SqlCommand("test", myConn)
  sqlCMD.CommandType = CommandType.StoredProcedure
sqlCMD.SelectCommand.Parameters.Add("@id", trim(par.text)) myconn.open()
myadapter.SelectCommand = sqlCMDds = new DataSet()
myadapter.Fill(ds,"tblUser")
myconn.close()

Answer 3

应该是！
 Dim mystr, mysql As String
        Dim myconn As SqlConnection
        Dim myadapter As New SqlDataAdapter()
        Dim ds As DataSet()        mystr = "server=localhost;pwd=;uid=sa;database=pubs"
        myconn = New SqlConnection(mystr)        Dim sqlCMD As New SqlCommand("test", myconn)
        sqlCMD.CommandType = CommandType.StoredProcedure
        sqlCMD.Parameters.Add("@id", Trim(par.text))        myconn.Open()
        myadapter.SelectCommand = sqlCMD        ds as New DataSet()
        myadapter.Fill(ds, "tblUser")
        myconn.Close()