ถ้าต้องการให้หมายเลขไอดีของสมาชิก มันรันให้เองโดยที่เราไม่ต้องคีย์ข้อมูลลงไป ทำยังค่ะ

Sub AutoGenearteMember_id()
        Dim sqlTmp As String = ""
        Dim comTmp As OleDbCommand = New OleDbCommand
        Dim drTmp As OleDbDataReader
        Dim tmpMember_id As Integer = 0

        'สร้างชุดคำสั่ง SQl เพื่อเลือกข้อมูล 1 เร็คคอร์ดล่าสุด จากตาราง 
        sqlTmp = "SELECT TOP 1 Member_ID FROM Member ORDER BY Member_ID DESC"

        Try
            With comTmp
                .CommandType = CommandType.Text
                .CommandText = sqlTmp
                .Connection = Conn

                drTmp = .ExecuteReader

                drTmp.Read()

                'อ่านข้อมูลจากฟิลต์  เก็บไว้ในตัวแปร 
                tmpMember_id = CInt(drTmp.Item("Member_ID"))
                drTmp.Close()
                tmpMember_id = tmpMember_id + 1

                'แสดงรหัสสมาชิกการที่สร้างได้
                textbox1.Text = tmpMember_id.ToString("0000")
            End With

        Catch ex As Exception                              'ในกรณีที่ไม่มีจำนวนเร็คคอร์ดอยู่เลย
             tbxAgent_ID.Text = "0001"                     'กำหนดรหัสสมาชิกเท่ากับ 0001

        End Try
    End Sub