VB.NET ขอตัวอย่าง VB 2008 ดึง id ล่าสุดที่เพิ่มในฐานข้อมูล Access 2007

 strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\database\db_wshop.accdb"
        objConn = New OleDbConnection(strConnString)
        objConn.Open()
        Sql = "select MAX(id_potion) AS ID  from tbl_potion"
        Dim dtReader As System.Data.OleDb.OleDbDataReader
        objCmd = New System.Data.OleDb.OleDbCommand(Sql, objConn)
        dtReader = objCmd.ExecuteReader

        เราจะใส่ code วนหาเลขได้อย่างไรคับ 


        dtReader.Close()
        dtReader = Nothing
        'objConn.Close()
        'objConn = Nothing 

strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\database\db_wshop.accdb"
       objConn = New OleDbConnection(strConnString)
       objConn.Open()
       Sql = "select MAX(id_potion) AS ID  from tbl_potion"
       Dim dtReader As System.Data.OleDb.OleDbDataReader
       objCmd = New System.Data.OleDb.OleDbCommand(Sql, objConn)
       dtReader = objCmd.ExecuteReader

     '  เราจะใส่ code วนหาเลขได้อย่างไรคับ 

      dtReader.Read()

      txtid.Text = dtReader("ID ")

       dtReader.Close()
       dtReader = Nothing
       'objConn.Close()
       'objConn = Nothing