Help With Incorrect Syntax (input Parameter)

Hi

Help with syntax, I get the error in the line: myDA.Fill(ds, "t1")


Function GetProductsOnDepartmentPromotionPaging(ByVal departmentId As String)

Dim myConnection As New _

SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))

Dim myDA As New SqlClient.SqlDataAdapter _

("MM_SP_GetProductsOnDepartmentPromotion", myConnection)

 

' Add an input parameter and supply a value for it

myDA.SelectCommand.Parameters.Add("@DepartmentID", SqlDbType.Int, 4)

myDA.SelectCommand.Parameters("@DepartmentID").Value = departmentId

Dim ds As New DataSet

Dim pageds As New PagedDataSource

myDA.Fill(ds, "t1")

pageds.DataSource = ds.Tables("t1").DefaultView

pageds.AllowPaging = True

pageds.PageSize = 4

Dim curpage As Integer

If Not IsNothing(Request.QueryString("Page")) Then

curpage = Convert.ToInt32(Request.QueryString("Page"))

Else

curpage = 1

End If

pageds.CurrentPageIndex = curpage - 1

lblCurrpage.Text = "Page: " + curpage.ToString()

If Not pageds.IsFirstPage Then

lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath + _

"?Page=" + CStr(curpage - 1)

End If

If Not pageds.IsLastPage Then

lnkNext.NavigateUrl = Request.CurrentExecutionFilePath + _

"?Page=" + CStr(curpage + 1)

End If

list.DataSource = pageds

list.DataBind()

End Function

 

Best Regards

Primillo