[VB.NET] البحث باعلى قيمة فى ملف اكسس بالvb.net

PHP كود :
Public Class Form1
    Dim str As String = "provider=microsoft.jet.oledb.4.0;data source=" & CurDir() & "\db.mdb"
    Dim con As OleDb.OleDbConnection
    'Dim value As Integer = 0
    Private Function GetValue(ByVal w As String) As Integer
        con = New OleDb.OleDbConnection(str)
        Using cm As New OleDb.OleDbCommand("", con)
            Select Case w
                Case "max"
                    cm.CommandText = "select max(age) from tb"
                Case "min"
                    cm.CommandText = "select min(age) from tb"
            End Select
            If con.State = ConnectionState.Closed Then con.Open()
            Try
                Return cm.ExecuteScalar
            Catch ex As Exception
                Return Nothing
            End Try
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Function
    Private Sub AddValue(ByVal a As Integer)
        con = New OleDb.OleDbConnection(str)
        Using cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(age) values(@age)"
            cm.Parameters.AddWithValue("@age", a)
            If con.State = ConnectionState.Closed Then con.Open()
            Try
                cm.ExecuteScalar()
            Catch ex As Exception
                If con.State = ConnectionState.Open Then con.Close()
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            End Try
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddValue.Click
        AddValue(Val(TextBox1.Text))
        BtnGetMax.PerformClick()
        BtnGetMin.PerformClick()
        TextBox1.Select()
        TextBox1.Focus()
        TextBox1.Clear()
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) = False Then Exit Sub
        BtnAddValue.Enabled = TextBox1.TextLength
    End Sub
    Private Sub BtnGetMax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetMax.Click
        Lmax.Text = GetValue("max")
    End Sub
    Private Sub BtnGetMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetMin.Click
        Lmin.Text = GetValue("min")
    End Sub
End Class