Dim crTableLogOnInfo As New TableLogOnInfo() Dim crConnectionInfo As New ConnectionInfo() Dim crDatabase As Database Dim crTables As Tables Dim crtable As Table Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument() Try RefreshControls(False) daGetData.SelectCommand.CommandText = dsReports.Tables("reports").Rows(cboReports.SelectedIndex).Item("StoredProc") daGetData.Fill(JobSearch, "contacts") hplPrint.Visible = False oRpt.Load(Server.MapPath(Me.dsReports.Tables("reports").Rows(Me.cboReports.SelectedIndex).Item("CrystalReportName"))) Me.crReport.ReportSource = oRpt oRpt.Database.Tables("contacts").SetDataSource(JobSearch.Tables("contacts")) crReport.Visible = True Catch exp As Exception setMessage(exp.Message) End Try>Jim,