Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
 
        lvBookings.Items.Clear()
 
        Dim itm As ListViewItem
 
        Dim varCommand As String
 
        varCommand = "SELECT BookingID, C_ID, StartDate, EndDate FROM tblBooking WHERE "
 
        If Not txtBSBookingID.Text = Nothing Then
            varCommand = varCommand & "BookingID LIKE '" & txtBSBookingID.Text & "'"
        ElseIf cboInitials.SelectedIndex > -1 Or Not cboInitials.SelectedItem = "None" Then
            varCommand = varCommand & "FFInitiatedBy LIKE '" & cboInitials.SelectedItem & "'"
        End If
 
        objCommand = New SqlCommand(varCommand, objConnection)
 
        Try
            objConnection.Open()
            Dim reader As SqlDataReader = objCommand.ExecuteReader
 
            While reader.Read()
                str(0) = reader("BookingID")
                str(1) = reader("C_ID")
                str(2) = reader("StartDate")
                str(3) = reader("EndDate")
                itm = New ListViewItem(str)
                lvBookings.Items.Add(itm)
 
            End While
        Finally
            objConnection.Close()
        End Try

"SELECT BookingID, (SELECT ConcessionName " & _
			"FROM tblConcessions " & _
			"INNER JOIN tblBooking " & _
			"ON tblConcessions.ConcessionID=tblBooking.C_ID), "& _
"StartDate, EndDate FROM tblBooking WHERE "

        varCommand = "SELECT tblBooking.BookingID, tblConcessions.ConcessionName, " & _
                "tblGardenCentre.GardenCentreName, tblBooking.StartDate," & _
                "tblBooking.EndDate " & _
                "FROM tblBooking " & _
                "INNER JOIN tblConcessions " & _
                "ON tblBooking.C_ID = tblConcessions.ConcessionID " & _
                "INNER JOIN tblGardenCentre " & _
                "ON tblBooking.GC_ID = tblGardenCentre.GardenCentreID " & _
                "WHERE "