now using this method and its working
Dim connectionString As String = connstring
Dim query As String = "SELECT * FROM datamaster where datamaster.PaymentStatus='SUCCESS' and datamaster.paymentdate>='" & Format(FromDate, "yyyy-MM-dd") & "' and datamaster.paymentdate<='" & Format(ToDate, "yyyy-MM-dd") & "'"
Using connection As New OdbcConnection(connectionString)
Using adapter As New OdbcDataAdapter(query, connection)
Dim dataSet As New DataSet()
adapter.Fill(dataSet, "datamaster")
Dim crystalReport As New Summary
crystalReport.SetDataSource(dataSet)
crystalReport.Refresh()
CrptViewer.ReportSource = crystalReport