Using sr As New StreamReader(myFile.InputStream)
                    'Dim sr As New StreamReader(myFile.InputStream)
                    Dim line As String
                    Do
                        line = sr.ReadLine()
                        If Not (line Is Nothing) Then
                            codprov = CInt(line.Substring(0, 3)) : codcom = CInt(line.Substring(3, 3)) : codalb = CInt(line.Substring(6, 4))
                            codcat = CInt(line.Substring(10, 2)) : dataArrivo = CDate(line.Substring(12, 10))
                            If line.Substring(22, 10) = "0000/00/00" Then
                                partito = 0
                            Else
                                dataPartenza = CDate(line.Substring(22, 10))
                                partito = 1
                            End If
                            codnaz = CInt(line.Substring(32, 3)) : codprovMov = CInt(line.Substring(35, 3))
                            If line.Substring(38, 2) = "  " Then
                                codgruppo = 1
                            Else
                                codgruppo = CInt(line.Substring(38, 2))
                            End If
                            nschedina = line.Substring(40, 5) : camdisp = CInt(line.Substring(45, 5)) : camocc = CInt(line.Substring(50, 5))
                            Dim flagQuery As Boolean = False
                            Dim conString = ConfigurationManager.ConnectionStrings("DB_GESTIONE_ALBERGHI")
                            Dim strConnString As String = conString.ConnectionString
                            Using db As New SqlConnection(strConnString)
                                db.Open()
                                REM ESEGUO IL CONTROLLO SE LA SCEDA IMPORTATA ESISTE GIA IN MODO TALE DA GESTIRE UNA INSERT O UPDATE, IN QUESTO SECONDO CASO SOLO DELLA DATA DI PARTENZA
                                Using sqlcmd As New SqlCommand("Search_Scheda_importata", db)
                                    sqlcmd.CommandType = CommandType.StoredProcedure
                                    sqlcmd.Parameters.AddWithValue("@codalbergo", SqlDbType.Int).Value = 71 'codice_albergo
                                    sqlcmd.Parameters.AddWithValue("@nscheda", SqlDbType.Int).Value = nschedina
                                    If Convert.ToInt32(sqlcmd.ExecuteScalar()) = 1 Then
                                        flagQuery = True
                                    End If
                                End Using
                                REM se il flagquery = False eseguo una insert perchè il record non esiste altrimenti update sul record esistente
                                If flagQuery = False Then
                                    Using sqlcmd As New SqlCommand("Insert_Import_C59", db)
                                        sqlcmd.CommandType = CommandType.StoredProcedure
                                        contatore_righe += 1
                                        sqlcmd.Parameters.AddWithValue("@CodiceAlbergo", SqlDbType.Int).Value = codalb
                                        sqlcmd.Parameters.AddWithValue("@CodiceScheda", SqlDbType.Int).Value = contatore_righe
                                        sqlcmd.Parameters.AddWithValue("@DataArrivo", SqlDbType.Date).Value = dataArrivo
                                        sqlcmd.Parameters.AddWithValue("@DataPartenza", SqlDbType.Date).Value = dataPartenza
                                        sqlcmd.Parameters.AddWithValue("@CodiceNazione", SqlDbType.Int).Value = codnaz
                                        sqlcmd.Parameters.AddWithValue("@CodiceProvinciaMov", SqlDbType.Int).Value = codprovMov
                                        sqlcmd.Parameters.AddWithValue("@Partito", SqlDbType.Int).Value = partito
                                        sqlcmd.Parameters.AddWithValue("@CodiceGruppo", SqlDbType.Int).Value = codgruppo
                                        sqlcmd.Parameters.AddWithValue("@NumeroSchedina", SqlDbType.VarChar).Value = nschedina
                                        sqlcmd.ExecuteNonQuery()
                                    End Using
                                Else
                                    Using sqlcmd As New SqlCommand("Update_Import_C59", db)
                                        sqlcmd.CommandType = CommandType.StoredProcedure
                                        contatore_righe += 1
                                        sqlcmd.Parameters.AddWithValue("@CodiceAlbergo", SqlDbType.Int).Value = codalb
                                        sqlcmd.Parameters.AddWithValue("@NScheda", SqlDbType.VarChar).Value = nschedina
                                        sqlcmd.Parameters.AddWithValue("@DataArrivo", SqlDbType.Date).Value = dataArrivo
                                        sqlcmd.Parameters.AddWithValue("@DataPartenza", SqlDbType.Date).Value = dataPartenza
                                        sqlcmd.Parameters.AddWithValue("@CodiceNazione", SqlDbType.Int).Value = codnaz
                                        sqlcmd.Parameters.AddWithValue("@CodiceProvinciaMov", SqlDbType.Int).Value = codprovMov
                                        sqlcmd.Parameters.AddWithValue("@Partito", SqlDbType.Int).Value = partito
                                        sqlcmd.Parameters.AddWithValue("@CodiceGruppo", SqlDbType.Int).Value = codgruppo
                                        sqlcmd.ExecuteNonQuery()
                                    End Using
                                End If
                            End Using
                        End If
                    Loop Until line Is Nothing
                End Using