سلام من از اين دستور استفاده ميكنم ولي ايراد ميگيره (lf.ToList ) را قبول نميكنه لطفا راهنمايي كنيد چطوري از اين دستور ميتونم استفاده كنم 

       dataAP.Fill(dataTB)

        Dim lf = From i In dataTB Where i.mablag_fish = Me.Tex_mablag.Text Select New With {i.cod_fish, i.madrak_fish, i.mablag_fish}



        Dim rpt As StiReport = New StiReport()



        rpt.RegData(lf.ToList)



        rpt.Load("fishb.mrt")



        rpt.Render()



        Me.StiViewerControl1.Report = rpt



        Me.StiViewerControl1.Show()