Set rst = cmd.Execute() <-- geht
               Set Me.Recordset = rst <-- geht nicht
 
               Do While Not rst.EOF <-- geht
                   MsgBox rst!Kurzbericht
                   rst.MoveNext
               Loop