Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim dw As New DataSet1TableAdapters.roomTableAdapter
Dim dt As New DataTable
dt = dw.GetData()
Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim crConnection As New ConnectionInfo
With crConnection
.ServerName = "BOOMNA"
.DatabaseName = "apartmentbase"
.UserID = "sa"
.Password = ""
.IntegratedSecurity = "true"
End With
report.Load(Server.MapPath("debit.rpt"))
report.SetDataSource(dt)
report.SetParameterValue("roomid", TextBox1.Text)
CrystalReportViewer1.ReportSource = report
End Sub