Dim dtbl As New System.Data.DataTable
 
With dtbl
     'Eine Spalte (Typ: String) und einige Testzeilen erstellen
     .Columns.Add("Testspalte", GetType(String))
     .Rows.Add("Finger weg")
     .Rows.Add("Such mich")
     .Rows.Add("Hau ab")
     .Rows.Add("Such mich auch")
 
     'Zeilen durchlaufen
     For r As Integer = 0 To .Rows.Count - 1
        If CType(.Rows(r).Item("Testspalte"), String).StartsWith("Such") Then
           'Ersetzung durchführen
           .Rows(r).Item("Testspalte") = "Hab Dich"
        End If
     Next r
End With