数据库里面明明有 表“products” 可是运行下面的代码总是说找不到表

我的数据库里面明明有 表“products”

可是运行下面的代码总是说找不到表，这是为什么？没办法只有把数据库给贴上来了。

Private Sub ITEMNO_AfterUpdate()
    '每次产品更改的初始价格和折扣
    If Not IsNull(Me![ITEMNO]) Then
        Me![Unit Price] = GetLastPrice(Me![ITEMNO])
        Me.[Name] = GetEnglishName(Me![ITEMNO])
    '空产品订单表示用户要删除项目
    Else
        eh.TryToRunCommand acCmdDeleteRecord
    End If
End Sub

Function GetLastPrice(lID As String) As Currency
    GetLastPrice = DLookup("[美元单价]", "CustQuotation扩展", "[ITEMNO] =  '" & Me.ITEMNO & "' And [客户代码] ='" & Forms!PI!customerID & "'")
End Function

Function GetEnglishName(lITEMNO As String) As String
    GetEnglishName = DLookup("[Name]", "products", "[ITEMCODE]= '" & lITEMNO & "'")
End Function