Urgent! Passing Paramters in data report

Hi,
The following is my code which passes parameter to show the report. But on clicking cmdView it displays a complie error saying 'Invalid use of property'.

Does anyone have a solution to this?

Thanks

Code:

---

Private Sub cmdView_Click()
 Load DataEnvironment1
  With DataEnvironment1
    If .rsCat_wise_issueM_Grouping.State <> 0 Then .rsCat_wise_issueM_Grouping.Close
    .rsCat_wise_issueM_Grouping (txtCat.Text)
  End With
  rptCat_wise_issue.Refresh
  If rptCat_wise_issue.Visible = False Then rptCat_wise_issue.Show

End Sub

---

Moved to reporting

Is this what your trying to do?

If deCropbyuser.rsCommand1_Grouping.State = adStateOpen Then
deCropbyuser.rsCommand1_Grouping.Close
End If
deCropbyuser.Commands("Command1_grouping").Parameters("param1").Value = frmUrange!txtStart