เริ่มนับเลข 1 เมื่อเปลี่ยนวันใหม่ครับ VB.Net ขอบคุณครับ

 Dim DByear As Date = Nothing
        Dim Now_Now As Date = Nothing
Dim MAXid As Integer = Nothing
 Dim newid As String = String.Empty
'เลือกวันที่บันทึกไอดีล่าสุดออกมา
 strSQL = "SELECT `ID`,datetime_save FROM customer_id ORDER BY datetime_save DESC LIMIT 1;"
                    cmd = New MySqlCommand(strSQL, ConnectionDB)
                    Call open_connection()
                    Dr = cmd.ExecuteReader
                    If Dr.HasRows Then
                        Dr.Read()
                        DByear = Dr.GetDateTime("datetime_save")
                        Now_Now = Now
                        
    'เทียบวันที่ปัจจุบันว่ามากกว่าที่บันทึกไว้หรือไม่
                            If Now_Now.ToString("yyyy-MM-dd", CultureInfo.CreateSpecificCulture("en-US")) > DByear.ToString("yyyy-MM-dd", CultureInfo.CreateSpecificCulture("en-US")) Then
'ถ้ามากกว่าก็เป็น 1
                            MAXid = 1
                            Else
'ถ้าไม่ใช่ ก็เอาไอดีมาบวกอีก 1
                                MAXid = Dr.Item("ID")
                                MAXid += 1
                   Else
'ถ้าอ่านไม่เจอตารางในฐานข้อมูลก็เริ่มที่ 1
                           MAXid = 1
                    End If
'เอา newid ไปใช้ 20180416-000x
newid = Now.ToString("yyyyMMdd", CultureInfo.CreateSpecificCulture("en-US")) & "-" & MAXid.ToString("0000")