ถามเรื่องการรันเลขที่ออเดอร์สินค้าอะครับ รันได้แล้วแต่ยังไม่เป็นตามที่ต้องการ

 Private Sub RunOrd()
        Dim idstr As String = "1000"
        Dim result = From Customer In db.Orders _
                     Select Customer

        For Each cus In result
            idstr = cus.OrderID.ToString()
        Next

        Dim id As Integer = CInt(idstr) + 1
        runid = id.ToString()       
    End Sub