[RESOLVED] Eliminating Parameter Prompt in applcation?

[Besoup]

try this

Public Sub PrintGroupActivitySummary()
        Try
            dErr.clsModule = "modReports"
 
            Dim crDoc As New rptGroupActivitySummary
 
            With crConnectionInfo
                .ServerName = "sTEST"
                .DatabaseName = "DACK"
                .UserID = "CRVBNETSQL"
                .Password = "password"
                .IntegratedSecurity = True
            End With
 
            crDoc.SetParameterValue("@userID", mstrUserID)    
            crDoc.SetParameterValue("@groupID", mIntGroupID)   
 
            frmReports.crViewer.ReportSource = crDoc
            frmReports.crViewer.DisplayGroupTree = False
            frmReports.ShowDialog()
 
        Catch ex As Exception
            dErr.clsProcedure = "PrintGroupActivitySummary()"
            dErr.clsMsg = ex.Message
            dErr.OnlineErrorHandler(dErr.clsModule, dErr.clsProgram, dErr.clsProcedure, dErr.clsMsg)
        End Try
    End Sub