Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnPrint.Click Dim crReportDocument As ReportDocument Dim crExportOptions As ExportOptions Dim crDiskFileDestinationOptions As DiskFileDestinationOptions Dim TempFileName As String Dim Order As New Samatason.CustomerOrder Dim dsOrder As DataSet Dim crTable As CrystalDecisions.CrystalReports.Engine.Table Dim crLogin As CrystalDecisions.Shared.TableLogOnInfo dsOrder = Customer.GetOrderByOrderID(CType(Request("OrderID"), Integer)) If IsNothing(dsOrder) Then Dim ex As New Samatason.Exceptions.SQLServerRetrieveException lblAlert.Text = ex.Message tblAlert.Visible = True Exit Sub End If crReportDocument = New ReportDocument crReportDocument.Load("D:\websites\windowswebs\rptorder.rpt") For Each crTable In crReportDocument.Database.Tables crLogin = crTable.LogOnInfo crLogin.ConnectionInfo.UserID = "User" crLogin.ConnectionInfo.Password = "pass" crTable.ApplyLogOnInfo(crLogin) Next crReportDocument.SetDataSource(dsOrder) TempFileName = "d:\vsdotnet\reports\" & Session.SessionID.ToString & ".pdf" crDiskFileDestinationOptions = New DiskFileDestinationOptions crDiskFileDestinationOptions.DiskFileName = TempFileName crExportOptions = crReportDocument.ExportOptions With crExportOptions .DestinationOptions = crDiskFileDestinationOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat End With crReportDocument.Export() Response.ClearContent() Response.ClearHeaders() Response.ContentType = "application/pdf" Response.WriteFile(TempFileName) Response.Flush() Response.Close() System.IO.File.Delete(TempFileName) End SubAt the moment rptorder.rpt is a blank report but I want it to print one order from the orders table.