I'm creating an inventory application. It has a combo box for rooms, and I'm trying to code the "Display" button. I got it to open up the database in a new window, but I'm trying to get it to come up and search the database with the cmbRooms.Text information and compare it to the room data in the records. I'm wondering if that's even possible? If so, am I able to do it from the Main Form, or do I have to modify the code in the Database form instead, or in addition to the Main Form's code?

Here's the Main Form's Display button code so far. When I run the application and select a room, and click "Display", it comes up with an error on this line:
Call frmDatabase.Show(record)
I've tried to get it to work, but I can't find an example or help on how to do it anywhere! I'd also like to point out that I've ben to at least four forums just today trying to find someone to answer my issue. No one's responded just yet. But I'm a very time-sensitive schedule, the longer it takes for this issue to be resolved, the more I'm afraid that my issue won't be resolved. Please help!

    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        'displays the Database window with a search query of the specified room

        Dim frmDatabase As New Database()
        Dim query As String
        query = "SELECT * FROM inventory WHERE room LIKE '%'" & cmbRooms.Text & "'%'"

            'If textbox for cmbRooms is occupied, and holds the value "All"
            'Then show the whole database
        If cmbRooms.Text = "All" Then
        ElseIf cmbRooms.Text > "0" Then
            'if textbox occupied, search database using query
            'if textbox empty, view error
            MessageBox.Show("Please select a room or type 'All' in the Room text field to view all entries.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End If

    End Sub

Here's the code for my database form:

Public Class Database

    Private Sub InventoryBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InventoryBindingNavigatorSaveItem.Click

    End Sub

    Private Sub Database_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'InventoryDataSet.Inventory' table. You can move, or remove it, as needed.

    End Sub
End Class