Per chi interessa, ho risolto così.
Se ci sono commenti sono bene accetti.
Ciao.
Public Sub ElencoSquadre()
Dim dbs As Database, rst As Recordset
Dim strSQL As String, i As Integer, fine As Integer, Serie As String
Static Elenco(20) As Variant, Partita As Integer, Giornata As Integer
Serie = Me.Testo33
Set dbs = CurrentDb
strSQL = "SELECT * FROM Squadre WHERE Squadre![Categoria] = '" & Serie & "'"
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveLast
Debug.Print rst.RecordCount
fine = rst.RecordCount
rst.MoveFirst
For i = 1 To fine
Elenco(i) = rst!Squadra
rst.MoveNext
Next i
rst.Close
Set dbs = Nothing
End Sub