อยากได้Code ที่ select MaxID หรื่อ Top 1 แล้วไปโชร์ที่ Textbox คับ (ใช้ asp.net vb, sql2008) ผมทำไม่ได้รบกวนช่วยที่คับ

'สร้าง โพซีเยอร์(sub) ขึ้นมาคับแล้วเรียกใช้งาน
sub Autogen_id()

  dim ComTmp as new OleDbDataReader
  dim drTmp as string 
  dim sqlselect as string =""
  dim Tmpid as integer = 0
  
  sqlselect="SELECT TOP 1 ID FROM Table Order By ID DESC"

  with ComTmp
    
    .Commandtype = Commandtype.Text
    .CommandText = sqlselect
    .Connection = Myconn 'ตัวที่ใช้เชื่อมต่อฐานข้อมูล
    drTmp = .ExecuteReader

    drTmp.Read()

    Tmpid = Cint (drTmp.Item("ชื่อฟิวด์ id")
    Tmpid = Tmpid + 1

    txtid.Text = Tmpid.Tostring("0000")

    drTmp.Close()
      end with

     end sub