update che non viene eseguito

[mexican]

Ciao ho impostato in una pagina inclusa un update che non capisco perchè non viene eseguito.
eccovi il codice:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        connetti()
        Try
            If Not IsPostBack Then
                Dim n_visite As Integer
                strsql = "Select n_visite from Visite where id_visite=1"
                cmdSql = New OleDbCommand(strsql, conn)
                Dim visite As Integer = cmdSql.ExecuteScalar
                If visite > 0 Then
                    n_visite = visite
                End If
                rs = cmdSql.ExecuteReader()

                If Session("visitatore") = "" Then
                    Session("visitatore") = "ok"
                    n_visite = n_visite + 1

                    strsql = "Update Visite set"
                    strsql = strsql & " n_visite=" & n_visite
                    strsql = strsql & " where id_visite=1"
                    cmdSql = New OleDbCommand(strsql, conn)
                    cmdSql.ExecuteNonQuery()
                End If

                nvisite.Text = n_visite
                rs.Close()
            End If
        Catch errore As Exception
            messaggio.Text = "Si è verificato il seguente errore: " & errore.Message
        Finally
            conn.Close()
        End Try
    End Sub

Mi spara a video in nvisite.text sempre lo stesso valore, è come se trovasse sempre la sessione piena, anche quando vado per la prima volta sulla pagina, dove sbaglio?