With CrystalReport1
       .Connect = cn
        '.DataSource =
        .StoredProcParam(0) = krit
        .ReportFileName = App.Path & "\" & "rptArtikli.rpt"
        .Destination = crptToWindow
        .WindowLeft = 0
        .WindowTop = 0
        .WindowWidth = Screen.Width
        .WindowHeight = Screen.Height
        .WindowState = crptMaximized
        .Action = 1
    End With