codice:
Option Explicit

Dim IDCampionato() As Integer
Dim IDGirone() As Integer



Private Sub cmbCampionatoOspitante_Change()
    Form_Load
End Sub

Private Sub Form_Load()
    Dim campionato As New campionato
    Dim girone As New girone
    Dim arbitro As New Arbitri
    Dim teamOspitante As New team
    Dim teamOspitata As New team
    
  
    Call arbitro.ElencaArbitri(cmbArbitro)
    Call campionato.ElencaCampionati(cmbCampionatoOspitante)
    Call campionato.ElencaCampionati(cmbCampionatoOspitata)
    Call girone.ElencaGironi(cmbGironeOspitante)
    Call girone.ElencaGironi(cmbGironeOspitata)
    
     'ritornano gli array delle posizioni degli ID del db
    IDCampionato = campionato.OttieniPosizioni
    IDGirone = girone.OttieniPosizioni
    
    teamOspitante.IDCampionato = IDCampionato(cmbCampionatoOspitante.ListIndex)
    teamOspitante.IDGirone = IDGirone(cmbGironeOspitante.ListIndex)
    
    teamOspitata.IDCampionato = IDCampionato(cmbCampionatoOspitata.ListIndex)
    teamOspitata.IDGirone = IDGirone(cmbGironeOspitata.ListIndex)
    
    Call teamOspitante.ElencaSquadre(cmbSquadraOspitante)
    Call teamOspitata.ElencaSquadre(cmbSquadraOspitata)
    
    Set campionato = Nothing
    Set girone = Nothing
    Set arbitro = Nothing
    Set teamOspitante = Nothing
    Set teamOspitata = Nothing
End Sub