Dim conn as new sqlConnection("ConnectionString...")
conn.open
Dim ds as new DataSet
Dim da as new sqlDataAdapter("Select * from [TableName] Where [id]='xx'",conn)
da.Fill(ds)
Dim rpt as new CrystalReportName '// Object Your Crystal Report
rpt.SetDataSource(ds.Tables(0)) '// *** Binding DataSource
rpt.SetParameterValue("ParameterName", Textbox1.text)