Private Sub optAnzeigen_Click(Index As Integer)
If optAnzeigen(0).Value = True Then
 
  With Rs
       Rs.Close
       Rs.Source = ("SELECT Name, Sum(Stunden) AS Summe FROM Stundennachweis" & _
         "GROUP BY Name")
 
       .CursorType = adOpenStatic
       Rs.Open , , , , adCmdText
       Rs.Requery
  End With
 
ElseIf optAnzeigen(1).Value = True Then
 
  With Rs
       Rs.Close
       Rs.Source = ("SELECT * FROM Stundennachweis ORDER BY Name")
 
       .CursorType = adOpenStatic
       Rs.Open , , , , adCmdText
       Rs.Requery
  End With
 
 
End If
End Sub