Private Sub optAnzeigen_Click(Index As Integer)
If optAnzeigen(0).Value = True Then
 
  With Rs
    .Close
    .ActiveConnection = Cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "SELECT Name, Sum(Stunden) AS Summe FROM Stundennachweis GROUP BY" & _
      "Name"
    .Open
  End With
 
ElseIf optAnzeigen(1).Value = True Then
 
  With Rs
    .Close
    .ActiveConnection = Cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "Select * From Stundennachweis order by name"
    .Open
  End With
 
End If
End Sub