يا شباب وبعدين مع التواريخ

Try

Dim str As String = " select debtor,c1,c2,c3,work,amount,fixed from rsdf where [date] between """ & CDate(txtfrom.Text) & """ and """ & CDate(txto.Text) & """"

Dim das As New DataSet()

Dim daa As New SqlClient.SqlDataAdapter(str, conn)

daa.Fill(das, "rsdf")

Dim rpt As New CrystalReport2()

Dim rprtv As New reports()

rpt.SetDataSource(daa)

rprtv.crv.ReportSource = rpt

rprtv.crv.RefreshReport()

rprtv.Show()

Catch ex As Exception

MsgBox(ex.ToString)

End Try