inn i dataaccess, byval status kommer fra en combobox med harkodet status. Id kommer fra "DataAccess.getInstance().endrestatus(status, ListBox1.SelectedItem.ToString().Substring(10, 6))" som ligger sammen med
Dim status As String = ComboBox1.Text 	i knappen.

gangen i systemet:
1. lister ut alle syklene (on form load) "ListBox1.DataSource = DataAccess.getInstance().hentallesykler()"
2. trykk på valgt sykkel fra listen.
3. DataAccess.getInstance().endrestatus(status, ListBox1.SelectedItem.ToString().Substring(10, 6)) Velger ut stringen fra plass 6 frem til plass 10, som er ID'en
4. dette sendes til "endrestatus" som gjør spørringen

Public Sub endrestatus(ByVal status As String, ByVal id As String)
            MsgBox(status)

            Dim datatable As DataTable
            Dim setstatus = "UPDATE Sykkel SET SykkelStatus = '" & status & "' WHERE Sykkel.SykkelID = '" & id & ";'"
           datatable = dbManager.Sporring(setstatus)
            Console.WriteLine("dbtable storrelse; " & datatable.Rows.Count)
            MsgBox("Sykkel med ID " & id & " er satt som status: " & status)
        End Sub