PrivateSub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
 
IfNot Page.IsPostBack Then
Dim nCount As Int32 = 108
nCount = GetCounterValue()
lblTest.Text = nCount.ToString()
EndIf
EndSub


PrivateFunction GetCounterValue() As Int32
Dim ctrFile As StreamReader
Dim ctrFileW As FileStream
Dim sw As StreamWriter
Dim strPath AsString = Server.MapPath("indexcount.txt")
Dim strCounterContents AsString
Dim nCounter As Int32
If (File.Exists(strPath)) Then
	 ctrFile = File.OpenText(strPath)
	 strCounterContents = ctrFile.ReadLine().ToString()
	 ctrFile.Close()
	 nCounter = Convert.ToInt32(strCounterContents)
Else

nCounter = 0
EndIf
 
nCounter += 1
ctrFileW = New FileStream(strPath, FileMode.OpenOrCreate, FileAccess.Write)
sw = New StreamWriter(ctrFileW)
sw.WriteLine(Convert.ToString(nCounter))
sw.Close()
ctrFileW.Close()
Return nCounter
EndFunction

    

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        If Not Page.IsPostBack Then
            Dim nCount As Int32 = 108 '  ||||| Why did you initialize this to 108?  Doesn't matter.
            nCount = GetCounterValue()
            lblTest.Text = nCount.ToString()
        End If
    End Sub

    Private Function GetCounterValue() As Int32
        Dim objCmd As OleDbCommand
        Dim objReader As OleDbDataReader
        Dim strSQL As String
        Dim intNewCount As Int32
        Dim MyConn As OleDbConnection = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Northwind.mdb;User ID=Admin;Password=;")
        strSQL = "SELECT Hit_Count FROM tblHits"

        objCmd = New OleDbCommand(strSQL, MyConn)
        If MyConn.State = ConnectionState.Closed Then
            MyConn.Open()
        End If
        objReader = objCmd.ExecuteReader(CommandBehavior.CloseConnection)
        With objReader
            intNewCount = CInt(.Item("Hit_Count")) + 1
        End With

        objReader.Close()

        '	|||||	Now Call the Update Hit Count
        Call Update_HitCount(intNewCount)
        '	|||||	Return the updated count
        Return intNewCount

    End Function

    Private Sub Update_HitCount(ByVal intValue As Int32)
        '	||||| Could have made this a class visible variable
        Dim MyConn As OleDbConnection = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Northwind.mdb;User ID=Admin;Password=;")
        Dim strSQL As String
        Dim objCmd As OleDbCommand
        Dim intRecords As Integer
        strSQL = "UPDATE tblHits "
        strSQL &= "SET Hit_Count = " & CStr(intValue)   '	||||| Maybe you have it as an Integer in the DB
        strSQL *= " WHERE ID = 1" '	||||| The Primary Key to the Only row in table

        objCmd = New OleDbCommand(strSQL, MyConn)
        intRecords = objCmd.ExecuteNonQuery() '	|||||	Returns the number of rows affected
        MyConn.Close()

    End Sub