Code:
Private Sub Form_Load()
Dim SQL As String

SQL = "{Client016.Amps } = 10"

With CP
.Reset
.DataFiles(0) = ("z:\electric meter department\meter\meter.mdb")
.ReportFileName = (App.Path & "\report1.rpt")
.WindowTitle = "Client Code Report"
.WindowState = crptMaximized
.WindowShowRefreshBtn = True
.SelectionFormula = SQL
.PrintReport
.Destination = crptToWindow
End With

End Sub
someone tell me whts wrong with my code?
and yes the report has records in it that match criteria given..
thank you