Dim Rpt As CRAXDRT.Report Dim RptApp As New CRAXDRT.Application Set Rpt = RptApp.OpenReport( RptFile) ' coba pake query aja 'Rpt.FormulaFields( 0) = "SubJudul='" & sSubJudul & "'"
adodc1.datasource="Select * from nama_table where nama_field='" & data & "' Rpt.Database. SetDataSource Adodc1.Recordset Rpt.DiscardSavedDat a rptViewer.ReportSou rce = Rpt rptViewer.ViewRepor t Me.Show vbModal
