how to make crystal report with select query from dataset

See more:

VB

.NET

hellow! Actually i want to make crystal report which datasource is dataset but problem is that in my application i create a button and textbox and drag crystalreportviewer and i want to do that when i insert the id in textbox and press the button, the crystal report show only inserted id and coloumns
here is my code below please help me out of this

Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form1
    Inherits System.Windows.Forms.Form

Dim newCmd As OleDbCommand
    Dim conn As OleDbConnection
    Dim da As New OleDbDataAdapter
    Dim ds As New DataSet2
    Dim cr As New CrystalReport1

    conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=stdb.mdb;Persist Security Info=False")
    newCmd = conn.CreateCommand()
    newCmd.Connection = conn
    newCmd.CommandText = "select Challan_No, Date, Name from stdb where Challan_No = '" & TextBox1.Text & "'"
    da = New OleDbDataAdapter(newCmd)
    da.Fill(ds, "stdb")

    cr = New CrystalReport1()
    cr.SetDataSource(ds)
    CrystalReportViewer1.ReportSource = cr
    conn.Close()
    newCmd.Cancel()
End Sub

end class