การสร้างรหัสอัตโนมัติ AutoGenerate id แบบมีปีพ.ศ.นำหน้าด้วย

'ซับรูทีน AutoGenearteBorrower_id() ทำหน้าที่สร้างรหัสสมาชิกโดยอัตโนมัติ
    Sub AutoGenearteBorrower_id()
        Dim sqlTmp As String = ""                     'ตัวแปรออบเจ็กต์ เก็บชุดคำสั่ง sql
        Dim comTmp As OleDbCommand = New OleDbCommand 'ตัวแปรออบเจ็กต์ OleDbCommmand ที่ชื่อว่า comTmp
        Dim drTmp As OleDbDataReader                  'ตัวแปรออบเจ็กต์ OleDbDataReader ที่ชื่อว่า drTmp
        Dim tmpBorrower As Integer = 0                'ตัวแปรออบเจ็กต์ เก็บรหัสผู้กู้ที่ได้

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

        Try                                                'ให้ทำ
            With comTmp
                .CommandType = CommandType.Text
                .CommandText = sqlTmp                      'ใช้ชุดคำสั่ง sql ที่เก็บอยู่ในตัวแปร sqlTmp
                .Connection = MyConn                       'ใช้การเชื่อมต่อของออบเจ็กต์ Connection

                drTmp = .ExecuteReader                     'รันชุดคำสั่ง SQl เก็บผลการทำงานไว้ที่ drTmp

                drTmp.Read()                               'อ่านข้อมูลในออบเจ็กต์ drTmp

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

                'แสดงรหัสผู้กู้ที่สร้างได้
                txtborrower_id.Text = tmpBorrower.ToString("0000")
            End With

        Catch ex As Exception                                                                                       'ในกรณีที่ไม่มีจำนวนเร็คคอร์ดอยู่เลย
            txtborrower_id.Text = (Now.Year + 543) - 2500 & "11" & "0001"                     'กำหนดรหัสสมาชิกเท่ากับ 0001

        End Try
    End Sub