DataGrid1.DataSource = ds
            DataGrid1.DataMember = "kunden"

    Private Sub AddRecordButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AddRecordButton.Click
        Dim cm As CurrencyManager = BindingContext(ds, "kunden")
        cm.AddNew()
    End Sub

    Private Sub GotoEndButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles GotoEndButton.Click
        Dim cm As CurrencyManager = BindingContext(ds, "kunden")
        cm.Position = cm.Count - 1
    End Sub