Use the Where condition in the OpenReport Command line, to pass the criteria
to filter on the company name
========================================
The code for the button click event

Dim MyWhereCondition as String
MyWhereCondition = "[Company Name Field name in the table] = '" &
Me.[Company Name Field in the form] & "'"
Docmd.OpenReport "ReportName",,, MyWhereCondition
=========================================
The single quote is for string filter

If you filter on a number it will be
MyWhereCondition = "[Company Name Field name in the table] = " & Me.[Company
Name Field in the form]

Try this
Select company
from company
Where company = [:conpany name];

The colon  :   is what makes it work. This is the function for a parameter
Have a good day
Karamursel