Dim db As New DataClassesDataContext

Dim Query = From qry in db.table1 _

                   Where qry.id1 = Page.Request.QueryString.Item("id").ToString() _

                   Select qry



Datalist1.DataSource = Query

DataList1.DataBind()