خطا در صفحه بندی دیتاگرید

[arsalansalar]

با سلام
من برای صفحه بندی دیتا گرید از کدهای زیر استفاده کردم.ولی خطا می گیرد.
اگر دوستان لطف کنند اشکال را بگویند ممنون می شوم.
یک مشکلی هم که دارد این است که به کوئری توجهی ندارد و همه رکوردها را باز می گرداند.


Sub BindDataGrid()
Dim da As OleDbDataAdapter
Dim ds As DataSet
endIndex = startIndex + DataGrid1.PageSize
strSelect = "Select * From gh Where id > @startIndex " _
& "And id <= @endIndex Order By id"
da = New OleDbDataAdapter(strSelect, con)
da.SelectCommand.Parameters.Add("@startIndex", startIndex)
da.SelectCommand.Parameters.Add("@endIndex", endIndex)
ds = New DataSet()
خط دارای خطاda.Fill(ds)
DataGrid1.DataSource = ds
DataGrid1.DataBind()
End Sub

خطای که می گیرد:Fill: SelectCommand.Connection property has not been initialized.



Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
con = New OleDbConnection(String.Format("provider = microsoft.jet.oledb.4.0 ; data source = {0}", Server.MapPath("~") + "\App_Data\web.mdb"))
If IsPostBack Then
' Get Total Pages
strSelect = "select Count(*) from gh where ghda >= " + textbox1.Text + " and ghda <= " + textbox2.Text + " and ghmo >= " + textbox3.Text + " and ghmo <= " + textbox4.Text + " and ghsa >= " + textbox5.Text + " and ghsa <= " + textbox6.Text + ""

cmdSelect = New OleDbCommand(strSelect, con)
con.Open()
DataGrid1.VirtualItemCount = 200
con.Close()
BindDataGrid()
End If
End Sub





Protected Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEvent Args) Handles DataGrid1.PageIndexChanged
startIndex = (e.NewPageIndex * DataGrid1.PageSize)
DataGrid1.CurrentPageIndex = e.NewPageIndex
Call BindDataGrid()
End Sub

[twelve]

da = New OleDbDataAdapter(strSelect, con)

con پس کجاس؟!

[arsalansalar]

دوست عزیزم مشکل اولم حل شد.
ولی همچنان به کوئری بی اعتناست.