Dynamisk datareport

Jeg prøver (forgæves) på at lave en "dynamisk" datareport, så jeg kan skifte min SQL-sætning ud og på den måde slippe for at oprette flere rapporter.

Jeg har 2 SQL-sætninger;
"SELECT nummer,navn,klub,tid FROM deltagere WHERE rute=1 ORDER BY tid"

"SELECT nummer,navn,klub,tid FROM deltagere WHERE rute=2 ORDER BY tid"

Jeg ville jo frygteligt gerne kunne slippe for at lave mere end 1 rapport...

Jeg har prøvet med følgende kode:

Private Sub Command1_Click()
aabncon  ' min databasen connection
Set rs = connect.Execute("SELECT nummer,navn,klub,tid FROM deltagere WHERE rute=1 ORDER BY tid")
        With udskrift  ' hedder min datareport
            Set .DataSource = DataEnvironment1
                .DataMember = ""
            With .Sections("Section1").Controls
                    For i = 1 To .Count
                        If TypeOf .Item(i) Is RptTextBox Then
                            .Item(i).DataMember = ""
                            .Item(i).DataField = rsdyn.Fields(i - 1).Value
                        End If
                    Next i
                End With
              .Show
      End With
End Sub

Koden har jeg fundet på 'nettet - men den giver en "failed getting recordset(s) from current data source"

Nogen som kan hjælpe?