table = ds.Tables.Add("mitarbeiter")
 maAdapter = New OleDb.OleDbDataAdapter("Select * from mitarbeiter", con)
 maAdapter.Fill(table)
 
maView = New DataView(table) 
 
Grid.DataSource = maView

  Dim selRow As Integer = Me.Grid.SelectedRows.Item(0).Index
        Name.Text = Grid.Item("Name", selRow).Value

 Name.DataBindings.Add("Text", maview, "Name")
        Dim Zeile As DataRow = CType(Me.BindingContext(madt).Current, _
          DataRowView).Row()
        If Zeile.RowState = DataRowState.Detached Then Exit Sub
        With Zeile
            Name.Text = .Item("Name")
        End With