ดูให้ทีครับ คำสั่งดึง id ล่าสุดมา+1 ใส่ใน textbox : VB 2008 + SQL SERVER 2008

        Dim autocode As String
        autocode = "SELECT max(idproduce)+1 as idproduce FROM Tbproduce"
        Dim cmd As New SqlCommand(autocode, Conn)

        Dim dr As SqlDataReader = cmd.ExecuteReader
        If dr.Read Then
            txtid.Text = dr("idproduce")
            Button3.Enabled = False
        End If