Private Sub mnuSearchButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuiSearchID.Click, mnuiSearchHotelname.Click
        'search command input screens and init
        Select Case CType(sender, ToolStripMenuItem).Name
            Case "mnuiSearchHotelname"
                Dim testVal As String = InputBox("Which record name do you want to find?")
                If testVal = "" Then Exit Sub
                hotels.SearchField(testVal, "HotelName")
            Case "mnuiSearchID"
                hotels.SearchField(InputBox("Which record number do you which to find?"), "HotelNr")
        End Select
    End Sub