'Recordset öffnen
    Set Rs = New ADODB.Recordset
    With Rs
        .ActiveConnection = Cn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM Abfrage1 , Abfrage2"
        .Open
    End With
 
    Set DataReport1.DataSource = Rs
    DataReport1.Show