问运行时错误'3075‘VBA:检查表中是否已存在文件

EN

我给出了一段代码，其中我试图检查文件是否已经上载到表中。当上传文件时，上传文件的名称被放入名为' name _ of _report‘的列中。我正在尝试运行下面的代码，并检查文件是否已经存在于保存所有数据的'Table1‘中。

然而，当我运行下面的代码时，我得到了错误:运行时错误'3075'：查询表达式'Name_of_report‘= File1中的语法错误(缺少运算符)。xlsx (这是分配给TableName变量的值)

我知道这是一个简单的修复，但我对VBA非常陌生，我尝试过各种更改，但看不到它能正常工作。

如果能帮上忙，我将不胜感激。

Sub Check_TableExists(TableName As Variant)
If CurrentDb.OpenRecordset("SELECT count(Name_of_Report) FROM Table1 WHERE Name_of_Report =" & TableName & ";").Fields(0) > 0 Then
    MsgBox ("Data already exists in table")
End If