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()
                Cmd = New SqlCommand("select * from Margen", Cn)
            Dim Da As New SqlDataAdapter(Cmd)
                Dim Ta As New DataTable("Margentabelle")
                Da.Fill(Ta)
 
                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