Imports System.data
Imports System.Data.SqlClient
Public Class Form3
    Inherits System.Windows.Forms.Form
    Private Cn As SqlConnection
    Private Cmd As SqlCommand
    Private Da As SqlDataAdapter
    Private Ds As DataSet
    Private Dv As DataView
 
Private Sub cmdNewData_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdNewData.Click
 
        Dim sCn As String = "Server=(" & _
          "local);Database=Konditionstabelle;integrated security=SSPI"
        Try
            Cn = New SqlConnection(sCn)
            Cn.Open()
 
            Dim newZeile As DataRow
            newZeile = Ds.Tables("Margen").NewRow()
            With newZeile
                .Item("Art.-Nr.") = txtArtNr.Text
                .Item("Bezeichnung") = txtBezeichnung.Text
                .Item("EK-netto") = txtEKnetto.Text
                .Item("Vk-netto") = txtVKnetto.Text
            End With
 
            Ds.Tables("Margen").Rows.Add(newZeile)
            Da.Update(Ds, "Margen")
            Cn.Close()
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Information, _
              "Margentabelle")
        End Try
    End Sub