'การลันเลขอัตโนมัติ
Sub autoSectionID()
Dim strsql As String
Dim dt As New DataTable
strsql = "Select max(section_ID)+1 as autoid from M_section"
dt = ConnDB.ConvertSQLToDataTable(strsql)
lblsection_ID.Text = Format(dt.Rows(0).Item("autoid"), "000")
End Sub