Dovresti creare un modulo e contare manualmente i campi.
Ex:


Public Sub Conta()

Dim rst As ADODB.Recordset
Dim Corso1, Corso2, Corso3, Corso4, Corso5 As Integer

'Inizializza le variabili
Corso1 = 0
Corso2 = 0
Corso3 = 0
Corso4 = 0
Corso5 = 0

Set rst = New ADODB.Recordset
rst.Open "nometabella", Application.CurrentProject.Connection, adOpenKeyset, adLockPessimistic
rst.MoveFirst

With rst
Do While Not .EOF
If rst(indicedelcampocorso) = 1 Then Corso1 = Corso1 + 1
If rst(indicedelcampocorso) = 2 Then Corso1 = Corso2 + 1
If rst(indicedelcampocorso) = 3 Then Corso1 = Corso3 + 1
If rst(indicedelcampocorso) = 4 Then Corso1 = Corso4 + 1
If rst(indicedelcampocorso) = 5 Then Corso1 = Corso5 + 1
.MoveNext
Loop
End With

End Sub


nometabella==> la tabella a cui fai riferimento
indicedelcampocorso==> deve essere la posizione del campo nella tabella. Ricorada che il primo campo ha indice zero.

Il codice non è dei migliori in quanto è buttato lì in questo momento.Alla fine le variabili Corsox conterranno il numero di iscritti al rispettivo corso.