Public Sub speichernsd(ByVal summefelder As Integer, ByVal prozentfelder As _
  Decimal, ByVal spnr As String)
        bssd.EndEdit()
        Dim Summe As String = "dre" + Trim(spnr) + "_summe"
        Dim Prozent As String = "dre" + Trim(spnr) + "_prozent"
        Dim updstr As String = "update sd set  " + Summe + " ='" & summefelder _
          & "' ," + Prozent + "  ='" & prozentfelder & "' where sdlfnr = @p1"
        Dim updcmd As New SqlCommand(updstr, con)
        Dim p1 As SqlParameter = updcmd.Parameters.Add("@p1", SqlDbType.Int)
        p1.SourceColumn = "sdlfnr"
        p1.SourceVersion = DataRowVersion.Original
        dasd.UpdateCommand = updcmd
        dasd.Update(dtsd)
End Sub