I have set the recordsoucre as:
Private Sub Report_Open(Cancel As Integer)
Dim strSql As String
strSql = "SELECT tbl_Catalog.* " & _
"FROM tbl_Catalog " & _
"ORDER BY tbl_Catalog.Vendor, tbl_Catalog.Path, tbl_Catalog.ProdName, tbl_Catalog.Price;"
Me.RecordSource = strSql...