Index = DataGrid1.CurrentRowIndex

Private Sub frmworkDatensatz_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim sCn As String = "Server=(" & _
        "local);Database=Konditionstabelle;integrated security=SSPI"
        Try
            Cn = New SqlConnection(sCn)
            Cn.Open()
            Cmd = New SqlCommand("select * from Margen", Cn)
            Dim Da As New SqlDataAdapter(Cmd)
            Ds = New DataSet
            Da.Fill(Ds, "Margen")
            Dim Ta As New DataTable("Margen")
            Da.Fill(Ta)
 
            With Me
                .txtArtNr.DataBindings.Add("Text", Ta, "ArtNr")
                ...
                .txtEinheit.DataBindings.Add("Text", Ta, "Einheit")
 
            End With
 
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Information, _
              "Margentabelle")
        Finally
            Cn.Close()
        End Try
 
    End Sub