For Each row as System.Data.DataRow In ds.Tables("teilnehmer").Rows
                If row.Item("name") = "xyz" Then row.Item("name") = "xyz"
            Next

As

Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
    ' bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Name = "Form1"
        Me.Text = "Form1"
 
    End Sub
 
#End Region
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
 
        Dim strSelect As String = "select name, vorname "
        strSelect &= "from teilnehmer "
 
 
        Dim conString As String
        conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        conString &= ("c:\db1.mdb")
 
        'Verbindung zur DB
        Dim con As New System.Data.OleDb.OleDbConnection(conString)
        Dim ds As DataSet = New DataSet()
 
        Try
 
            con.Open()
 
            Dim da As New System.Data.OleDb.OleDbDataAdapter(strSelect, con)
 
            'DataSet fuellen
            da.Fill(ds, "teilnehmer")
 
 
            'Durchlaufen der Datensaetze zwecks Bearbeitung
            Dim row As System.Data.DataRow
             For Each row as System.Data.DataRow In ds.Tables("teilnehmer").Rows
                If row.Item("name") = "xyz" Then row.Item("name") = "xyz"
            Next
 
 
            'Fuellen eines DataGrids
            Dim dgTest As New DataGrid()
            dgTest.SetDataBinding(ds, "teilnehmer")
 
            Dim ex As System.Data.OleDb.OleDbException
        Catch ex As System.Data.OleDb.OleDbException
            MessageBox.Show(ex.Message)
 
 
        Finally
            Dim da As New System.Data.OleDb.OleDbDataAdapter(strSelect, con)
            da.Dispose()
            con.Close()
            con.Dispose()
        End Try
 
    End Sub
 
 
 
End Class