?????

Public Class SykkelDAO

Public Funtion hentEnSykkel(rammenummer As String) as Sykkel
    dim hentetSykkel as Datatable
    hentEnSykkel = query(rammenummer) 'her anntar jeg at query funksjonen bare trenger rammenummeret for å hente alt om den sykkelen
    return hentEnSykkel
End Funtion

Public Function lagreSykkel(sykkel as Sykkel)
    Dim sykkelinfo as Datatable
    sykkelinfo = hentEnSykkel(rammenummer)
    For each row as datarow in sykkelinfo.rows
        dim produsent as string = rad("produsent")
        dim merke as string = rad("merke")
        dim innkjopspris as double = rad("innkjøpspris")
        dim innkjopsdato as date = rad("innkjopsdato")
        dim skivebrems as boolean = rad("skivebrems")

    nySykkel = New Sykkel(produsent, merke, innkjopspris, innkjopsdato, skivebrems)
    next

    Dim nyprodusent as string
    Dim nyttMerke as string
    Dim nyttRammeNr as string = sykkel.getrammeNr
    Dim nyInnkjopspris as Double
    Dim nyInnkjopsdato as string

    If hentEnSykkel(nyttRammeNr) = vbNull then
        Update("INSERT into sykler (produsent, merke, rammeNr, innkjøpsPris, innkjøpsDato, skivebrems) VALUES('" & produsent & "', '" & merke & "', '" & rammeNr & "', '" & innkjøpsPris & "', '" & innkjøpsDato & "', '" & skivebrems & "')")
    Else
        Update("UPDATE sykler SET produsent = '" & produsent & "', merke = '" & merke & "', innkjøpsDato = '" & innkjøpsPris & "', innkjøpsDato = '" & innkjøpsDato & "', skivebrems = '" & skivebrems & "' WHERE rammeNr = '" & rammeNr & "' ")
    end if
End Function
end class

Dim SykkelDAO as new SykkelDAO
Private sub btnLagre(sender As Object, e As EventArgs) Handles btnLagre.Click
Try
    dim sykkelnavn = new sykkel(txtProdusent.text, txtMerke.text, txtRammenr.text, txtInnkjøpspris.text, txtInnkjøpsdato.text, chkSkivebrems.checked)
    sykkelDAO.lagreSykkel()
    Catch sqlEx as SqlException
    msgbox(sqlEx)
end try
Ens Sub