Imports System.Data.SqlClient
 
Module Module1
 
    Sub Main()
        Dim rowvor As Integer
        Dim rownext As Integer
        Dim conn As SqlConnection
        conn = New SqlConnection("Server=UG04; Database=LABSQL;Integrated" & _
          "Security=true")
        conn.Open()
        Dim da As New SqlDataAdapter("SELECT * FROM [hlfKunde-Anlage]ORDER BY" & _
          "Kunde_ID", conn)
        Dim dt As New DataTable
        da.Fill(dt)
        Dim row As DataRow = dt.NewRow()
        Dim n = 0
        For Each row In dt.Rows
            rowvor = dt.NewRow(n).Item("Anlage_ID")
            rownext = dt.NewRow(n + 1).Item("Anlage_ID")
            If rowvor = rownext Then
                row.Item(n + 1) = 9999999
            End If
            Console.WriteLine("Anlage: " + rownext)
            n = n + 1
        Next
    End Sub
End Module