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"
  Cn = New SqlConnection(sCn)
  Try
    Cmd = New SqlCommand("INSERT INTO Margen (" & _
      "[Art.-Nr.],[Bezeichnung],[EK-netto],[Vk-netto]) Values(" & _
      "@ArtNr,@Bez,@EkNetto,@VkNetto);", Cn)
 
    Cmd.Parameters.Add( "@ArtNr", SqlDbType.Int,4).Value = CInt(txtArtNr.Text)
    Cmd.Parameters.Add( "@Bez", SqlDbType.VarChar,255).Value = _
      txtBezeichnung.Text
    Cmd.Parameters.Add( "@EkNetto", SqlDbType.VarChar,255).Value = _
    txtEKnetto.Text
    Cmd.Parameters.Add( "@VkNetto", SqlDbType.VarChar,255).Value = _
    txtVKnetto.Text
 
    Cn.Open()
    Cmd.ExecuteNonQuery();
  Catch ex As Exception
     MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Information, "Margentabelle")
  Finally
    Cn.Close()
  End Try
End Sub