BC30516: Overload Resolution Failed Because No Accessible 'New' Accepts This Number Of Arguments Error

Hello, I want to get data from datatable as below. I am getting error:

BC30516: Overload resolution failed because no accessible 'New' accepts this number of arguments.  I did not understand what is wrong. Because everything is same as msdn library.

my codebehind is:

Imports System.Data

Imports System.Data.Sql

Imports System.Data.SqlClientPartial Class Default2 Inherits System.Web.UI.Page

 

Private Shared Function GetConnectionString() As String

' To avoid storing the connection string in your code,

' you can retrieve it from a configuration file.

Return "Data Source=Database;Initial Catalog=otel;Integrated Security=True;Pooling=False"

End FunctionProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadDim connectionString As String = _

GetConnectionString()

' Create a SqlConnection to the database.Using connection As SqlConnection = New SqlConnection(connectionString)

 

' Create a SqlDataAdapter for the Suppliers table.Dim mailsAdapter As SqlDataAdapter = _ New SqlDataAdapter()

' A table mapping names the DataTable.mailsAdapter.TableMappings.Add("Table", "Pages")

connection.Open()Dim PagesCommand As SqlCommand = New SqlCommand( _"SELECT * FROM Pages", _

connection)

PagesCommand.CommandType = CommandType.Text

' Set the SqlDataAdapter's SelectCommand.

mailsAdapter.SelectCommand = PagesCommand

' Fill the DataSet.

Dim dataSet1 As Dataset = New Dataset("Pages") 'ERROR MESSAGE HERE...........................................mailsAdapter.Fill(dataSet1)

connection.Close()LblPageName.Text = CStr(dataSet1.Tables("Pages").Rows(0).Item(1))

TxtPageTitle.Text = CStr(dataSet1.Tables("Pages").Rows(0).Item(2))TxtPageSummary.Text = CStr(dataSet1.Tables("Pages").Rows(0).Item(3))

Rte1.Text = CStr(dataSet1.Tables("Pages").Rows(0).Item(4))TxtPageimgUrl.Text = CStr(dataSet1.Tables("Pages").Rows(0).Item(5))

End Using

End Sub

 

End Class