Thank you very much for answering my question.

Everything works until I get to the last statement:
CurrentDb.QueryDefs("Query1").SQL = strSql

However, when I type in company name that exists in the table, I get a
Run-time error '3265': Item not found in this collection.  I am not sure why
this is occurring.  Below is my completed code:

Dim strWhere As String
Dim strTable As String
Dim strSQL As String
Dim lngLen As Long

   If Me.Sourcetable.Value >= 1 Then
       
       strTable = Me.Sourcetable.Value
   
       'Filtering each text box for values
       If Not IsNull(Me.txtCompName) Then
           strWhere = strWhere & "([Company] like ""*" & Me.txtCompName &
"*"") AND "
       End If
       
       If Not IsNull(Me.txtWeb) Then
           strWhere = strWhere & "([Web] like ""*" & Me.txtWeb & "*"") AND "
       End If
       
       If Not IsNull(Me.txtCity) Then
           strWhere = strWhere & "([City] like ""*" & Me.txtCity & "*"")
AND "
       End If
       
       If Not IsNull(Me.cboState) Then
           strWhere = strWhere & "([State]= """ & Me.cboState & """) AND "
       End If
       
       'See if the string has more than 5 characters (a trailng " AND ") to
remove.
   lngLen = Len(strWhere) - 5
   If lngLen <= 0 Then     'There was nothing in the string.
       MsgBox "No criteria", vbInformation, "Nothing to do."
   Else                    'There is something there, so remove the " AND "
at the end.
       strWhere = Left$(strWhere, lngLen)
   End If
   
   strSQL = "SELECT * FROM " & strTable & " WHERE " & strWhere & ";"
   CurrentDb.QueryDefs("Query1").SQL = strSQL
       
   Else
       'Check to see if choice is selected
       IsNull (Me.Sourcetable) Or Me.Sourcetable = ""
       MsgBox "Please select a source form", vbOKOnly, "Required Data"
       Me.Sourcetable.SetFocus
   End If

I do see now that I need to add coding to bring up a window if no matches to
the search are found.