Private dt As System.Data.DataTable
 
    Dim bs As New BindingSource
 
        bs.DataSource = dt
 
        Me.DataBindings.Add(New Binding("Text", bs, "Bezeichnung", True))
        Me.TB_Tiefe.DataBindings.Add(New Binding("Text", bs, "Tiefe", True))
        Me.TB_Breite.DataBindings.Add(New Binding("Text", bs, "Breite", True))
        Me.TB_Wandung.DataBindings.Add(New Binding("Text", bs, "Wandung", True))
        Me.TB_Teilung.DataBindings.Add(New Binding("Text", bs, "Teilung", True))
        Me.TB_Bild.DataBindings.Add(New Binding("Text", bs, "Bild", True))
        Me.TB_LH.DataBindings.Add(New Binding("Text", bs, "LH", True))
        Me.TB_LB.DataBindings.Add(New Binding("Text", bs, "LB", True))
        Me.TB_SV.DataBindings.Add(New Binding("Text", bs, "SV", True))
        Me.TB_SH.DataBindings.Add(New Binding("Text", bs, "SH", True))
        Me.TB_Reihen.DataBindings.Add(New Binding("Text", bs, "Reihen", True))
        Me.TB_Seiten.DataBindings.Add(New Binding("Text", bs, "Seiten", True))
        Me.TB_LBxx.DataBindings.Add(New Binding("Text", bs, "LBxx", True))
        Me.TB_SBABST.DataBindings.Add(New Binding("Text", bs, "LBxx", True))
        Me.TB_SBSTART.DataBindings.Add(New Binding("Text", bs, "SBABST", True))
        Me.TB_PB5.DataBindings.Add(New Binding("Text", bs, "SBSTART", True))

  Private Sub DGV1_CellEnter(sender As System.Object, e As _
    System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV1.CellEnter
        Try
            With DGV1.Rows(e.RowIndex)
                --Bezeichnung
                Me.Text = .Cells(0).Value.ToString
                --Tiefe
                TB_Tiefe.Text = .Cells(1).Value
                --Breite
                TB_Breite.Text = .Cells(2).Value
                --Wandung
                TB_Wandung.Text = .Cells(3).Value
                --Teilung
                TB_Teilung.Text = .Cells(4).Value
                --Bild zur Darstellung
                TB_Bild.Text = .Cells(5).Value.ToString
                PB5.Load(BildFile & "\" & TB_Bild.Text & ".wmf")
                Dim LenProfilxx As String = Len(TB_Bild.Text) - 2
                xProfil = Microsoft.VisualBasic.Left(xProfil, Len(xProfil) - _
                  LenProfilxx)
                --Lochhöhe
                TB_LH.Text = .Cells(6).Value
                --Lochbreite
                TB_LB.Text = .Cells(7).Value
                --Stegbreite
                TB_SV.Text = .Cells(8).Value
                --Steghöhe
                TB_SH.Text = .Cells(9).Value
                --Reihen
                TB_Reihen.Text = .Cells(10).Value
                --Seiten
                TB_Seiten.Text = .Cells(11).Value
                --Lochbild
                TB_LBxx.Text = .Cells(12).Value.ToString
                --Abstand
                TB_SBABST.Text = .Cells(13).Value
                --Abstand Start
                TB_SBSTART.Text = .Cells(14).Value
            End With
        Catch ex As System.Exception
            MsgBox("Fehler bei der Datenübernahme aus dem DGV!" & vbCrLf & _
              ex.Message, MsgBoxStyle.Information, "Information!")
        End Try
    End Sub

mfg.

Dirk