'Set Automatic Serail
            Dim dt As DataTable
            dt = DB.GetData("SELECT SUBSTR(orders.odr_code FROM 1 FOR 6) `date`,SUBSTR(orders.odr_code FROM 8 FOR 2) `serial` FROM orders ORDER BY SUBSTR(orders.odr_code FROM 1 FOR 6) desc,SUBSTR(orders.odr_code FROM 8 FOR 2) desc LIMIT 1")

            Dim serial As String

            If dt.Rows.Count > 0 Then
                If dt.Rows(0).Item(0) = Year & Month & Day Then
                    serial = Format(dt.Rows(0).Item(1) + 1, "00")
                    order_id = Year & Month & Day & "-" & serial

                Else
                    order_id = Year & Month & Day & "-01"
                End If
            Else
                order_id = Year & Month & Day & "-01"
            End If



' Command.ExecuteScalar()
 
Public Sub CreateMySqlCommand(myScalarQuery As String, myConnection As SqlConnection)
    Dim myCommand As New SqlCommand(myScalarQuery, myConnection)
    myCommand.Connection.Open()
    myCommand.ExecuteScalar()
    myConnection.Close()
End Sub
 
' Command.ExecuteReader()
 
Public Sub CreateMySqlDataReader(mySelectQuery As String, _
myConnectionString As String)
    Dim myConnection As New SqlConnection(myConnectionString)
    Dim myCommand As New SqlCommand(mySelectQuery, myConnection)
    myCommand.Connection.Open()
    Dim myReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
    While myReader.Read()
        Console.WriteLine(myReader.GetString(0))
    End While
    myReader.Close()
    myConnection.Close()
 End Sub
 
' Command.ExecuteNonQuery()
 
Public Sub CreateMySqlCommand(myQuery As String, myConnection As SqlConnection)
    Dim myCommand As New SqlCommand(myQuery, myConnection)
    myCommand.Connection.Open()
    myCommand.ExecuteNonQuery()
    myConnection.Close()
End Sub