Private Sub Speichern()
        Dim updstr As String
      updstr = "Update SD Set " + snrv + " = @p1," + sz + " = @p2," + sgr + " =" & _
        "@p3 where sdlfnr = @p10"
        Dim updcmd As New SqlCommand(updstr, con)
        updcmd.Parameters.Add("@p1", SqlDbType.Int, 50, snrv)
        updcmd.Parameters.Add("@p2", SqlDbType.NVarChar, 8, sz)
        updcmd.Parameters.Add("@p3", SqlDbType.NVarChar, 2, sgr)
 
        Dim p10 As SqlParameter = updcmd.Parameters.Add("@p10", SqlDbType.Int, _
          8)
 
        p10.SourceColumn = "sdlfnr"
        p10.SourceVersion = DataRowVersion.Default
        Dim dasv As New SqlDataAdapter(sqlstr, con)
        dasv.UpdateCommand = updcmd
 
        con.Open()
        Try
            dasv.Update(dtsv)
        Catch
            MsgBox("Fehler")
        End Try
        con.Close()
 
    End Sub