01.Private Sub GenerateID()
02. Dim sql As String = ""
03. Dim tmpID As Integer = 0
04. sql = "SELECT TOP 1 SaleID FROM Sale ORDER BY SaleID DESC"
05. Try
06. Com = New OleDbCommand
07.
08. With Com
09. .CommandType = CommandType.Text
10. .CommandText = sql
11. .Connection = Conn
12. dr = .ExecuteReader()
13. dr.Read()
14. tmpID = CInt(CStr((dr.Item("SaleID"))))
15. tmpID = tmpID + 1
16. LastID = tmpID.ToString("0000000")
17. lblSaleID.Text = LastID
18. End With
19. Catch
20.
21. LastID = "0000001"
22. lblSaleID.Text = LastID
23. End Try
24. dr.Close()
25. End Sub
