アクセスデータベースVB - ほとんどの 'RECENT'レコードのデータベースの検索

Question

最近のレコードを検索できるように、以下のコードをどのように変更できるのかと思いました。私はホテル予約システムを作成しており、データベースに最新の価格を使用したいが、現時点では、私が欲しくないラベルを使って検索しているだけです。

Dim str1 As String 
Dim dbpassword As String = "123" 
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source= E:\Computing\Hotel Booking System\Database\Hotel Booking System.accdb ;Jet OLEDB:Database Password =" & dbpassword & ";" 
Dim MyConn As OleDbConnection 
Dim dr As OleDbDataReader 

Private Sub Information_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    Dim PriceFound As String = False 
    MyConn = New OleDbConnection 

    MyConn.ConnectionString = connString 

    MyConn.Open() 

    str1 = ("SELECT * FROM [Prices] WHERE [Adult] = '" & LblPriceAdult.Text & "' AND [Child] = '" & LblPriceChild.Text & "'") 

    Dim cmd1 As OleDbCommand = New OleDbCommand(str1, MyConn) 

    dr = cmd1.ExecuteReader 

    While dr.Read() 


     PriceFound = True 
     DateDisplay = dr("ID").ToString 
     AdultPrice = dr("Adult").ToString 
     ChildPrice = dr("Child").ToString 
     SingleRoom = dr("Single").ToString 
     DoubleRoom = dr("Double").ToString 
     FamilyRoom = dr("Family").ToString 

     If PriceFound = True Then 
      LblPriceAdult.Text = AdultPrice 
      LblPriceChild.Text = ChildPrice 
      LblPriceDoubleRoom.Text = DoubleRoom 
      LblPriceFamilyRoom.Text = FamilyRoom 
      LblPriceSingleRoom.Text = SingleRoom 
     End If 
    End While 
    MyConn.Close() 
End Sub 

Answer 1

以前のコメントに基づいて、最新のレコードをトラップするようにSQLを書き直す必要があります。私は上記の答えをしようとした

SELECT MAX(ID) FROM [Prices] ORDER BY ID DESC 

Answer 2

：

はこのような何かを試してみてください。しかし、上記のコードでは、最新のものを検索しないので、変更しましたDESCをASC