Задача о нахождении максимального и минимального значений

---

Мой код для минимальных значений возвращает максимальное значение а код для максимального возвращает 0

Private Sub BtnCalcMin_Click(sender As Object, e As EventArgs) Handles btnCalcMin.Click
        'Minimum Calculation 

        Dim strsql As String = "SELECT [Price] FROM [Booking]"
        Dim strpath As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Users\User\Desktop\Dummy database for login register\Flight2\Flight\test.mdb"

        Dim odaTest As New OleDb.OleDbDataAdapter(strsql, strpath)
        Dim datvalue As New DataTable

        Dim intcount As Integer

        Dim decMinimum As Decimal = 0

        odaTest.Fill(datvalue)
        odaTest.Dispose()


        For intcount = 0 To datvalue.Rows.Count - 1
            If decMinimum >= Convert.ToDecimal(datvalue.Rows(intcount)("Price")) Then
                decMinimum = Convert.ToDecimal(datvalue.Rows(intcount)("Price"))
            Else
                decMinimum = decMinimum
            End If
        Next

        Label5.Text = "RM" & decMinimum

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'Maximum Calculation 

        Dim strsql As String = "SELECT [Price] FROM [Booking]"
        Dim strpath As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Users\User\Desktop\Dummy database for login register\Flight2\Flight\test.mdb"

        Dim odaTest As New OleDb.OleDbDataAdapter(strsql, strpath)
        Dim datvalue As New DataTable

        Dim intcount As Integer

        Dim decMax As Decimal = 0

        odaTest.Fill(datvalue)
        odaTest.Dispose()

        For intcount = 0 To datvalue.Rows.Count - 1
            If decMax < Convert.ToDecimal(datvalue.Rows(intcount)("Price")) Then
                decMax = Convert.ToDecimal(datvalue.Rows(intcount)("Price"))
            End If
        Next

        Label6.Text = "RM" & decMax
    End Sub

Что я уже пробовал:

Я попробовал изменить тип данных с валюты на цифры

---