ecco il codice che provoca l'errore presente nel titolo


dim controlloStat as ODBCCommand = New ODBCCommand("Select DISTINCT catappartenenza FROM tbsquadre WHERE catappartenenza = 'Serie A' OR catappartenenza = 'Serie B' OR catappartenenza = 'Serie C1 A' OR catappartenenza = 'Serie C1 B' OR catappartenenza = 'Serie C2 A' OR catappartenenza = 'Serie C2 B' OR catappartenenza = 'Serie C2 C'", objConn)
Dim ReaderControlloStat as ODBCDataReader
ReaderControlloStat = controlloStat.ExecuteReader()

While ReaderControlloStat.Read()
dim controlloStatInterno as ODBCCommand = New ODBCCommand("Select nome,gf,catappartenenza FROM tbsquadre WHERE catappartenenza = '"& ReaderControlloStat("catappartenenza") &"' ORDER BY gf DESC", objConn)
Dim ReaderControlloStatInterno as ODBCDataReader
ReaderControlloStatInterno = controlloStatInterno.ExecuteReader()

While ReaderControlloStatInterno.Read()
sentillona = sentillona + 1
IF ReaderControlloStatInterno("catappartenenza") = "Serie A" THEN
nomeCampionatoSelezionato = ReaderControlloStatInterno("catappartenenza")
miglioreAttaccoSerieA = ReaderControlloStatInterno("nome")
golMiglioreAttaccoSerieA = ReaderControlloStatInterno("gf")
DataBind()
ELSEIF ReaderControlloStatInterno("catappartenenza") = "Serie B" THEN
nomeCampionatoSelezionato = ReaderControlloStatInterno("catappartenenza")
miglioreAttaccoSerieB = ReaderControlloStatInterno("nome")
golMiglioreAttaccoSerieB = ReaderControlloStatInterno("gf")
DataBind()
ELSEIF ReaderControlloStatInterno("catappartenenza") = "Serie C1 A" THEN
nomeCampionatoSelezionato = ReaderControlloStatInterno("catappartenenza")
miglioreAttaccoSerieC1A = ReaderControlloStatInterno("nome")
golMiglioreAttaccoSerieC1A = ReaderControlloStatInterno("gf")
DataBind()
ELSEIF ReaderControlloStatInterno("catappartenenza") = "Serie C1 B" THEN
nomeCampionatoSelezionato = ReaderControlloStatInterno("catappartenenza")
miglioreAttaccoSerieC1B = ReaderControlloStatInterno("nome")
golMiglioreAttaccoSerieC1B = ReaderControlloStatInterno("gf")
DataBind()
ELSEIF ReaderControlloStatInterno("catappartenenza") = "Serie C2 A" THEN
nomeCampionatoSelezionato = ReaderControlloStatInterno("catappartenenza")
miglioreAttaccoSerieC2A = ReaderControlloStatInterno("nome")
golMiglioreAttaccoSerieC2A = ReaderControlloStatInterno("gf")
DataBind()
ELSEIF ReaderControlloStatInterno("catappartenenza") = "Serie C2 B" THEN
nomeCampionatoSelezionato = ReaderControlloStatInterno("catappartenenza")
miglioreAttaccoSerieC2B = ReaderControlloStatInterno("nome")
golMiglioreAttaccoSerieC2B = ReaderControlloStatInterno("gf")
DataBind()
ELSEIF ReaderControlloStatInterno("catappartenenza") = "Serie C2 C" THEN
nomeCampionatoSelezionato = ReaderControlloStatInterno("catappartenenza")
miglioreAttaccoSerieC2C = ReaderControlloStatInterno("nome")
golMiglioreAttaccoSerieC2C = ReaderControlloStatInterno("gf")
DataBind()
END IF

End While
ReaderControlloStatInterno.Close()
controlloStatInterno.Cancel()
End While
ReaderControlloStat.Close()
controlloStat.Cancel()