' 2B fra Bendik v15
    Public Sub lagresykkel(sykkel As Sykkel) ' brukeren vil lagre en sykkel.
        Dim produsent As String = sykkel.Getprodusent() ' vi henter sykkelinfo fra klassen sykkel sine get-metoder, som blir lagt inn, når brukeren legger til info i tekstboksene som blir håndttert av konstruktør i klassen sykkel.
        Dim merke As String = sykkel.GetMerke()
        Dim rammeNr As String = sykkel.GetRammeNr()
        Dim innkjøpsPris As String = sykkel.GetinnkjøpsPris()
        Dim innkjøpsDato As String = sykkel.GetinnkjøpsDato()
        Dim skivebrems As Boolean = sykkel.Getskivebrems()

        If hentEnSykkel(rammeNr) = vbNull Then ' hvis rammenr ikke finnes fra før, INSERT den nye sykkelen i databasen
            Update("INSERT into sykler (produsent, merke, rammeNr, innkjøpsPris, innkjøpsDato, skivebrems) VALUES('" & produsent & "', '" & merke & "', '" & rammeNr & "', '" & innkjøpsPris & "', '" & innkjøpsDato & "', '" & skivebrems & "')")
        Else ' hvis den finnes fra før, så oppdatterer vi kun sykkelen.
            Update("UPDATE sykler SET produsent = '" & produsent & "', merke = '" & merke & "', innkjøpsDato = '" & innkjøpsPris & "', innkjøpsDato = '" & innkjøpsDato & "', skivebrems = '" & skivebrems & "' WHERE rammeNr = '" & rammeNr & "' ")
        End If

    End Sub