如何以编程方式导入（在Access中）一个dBase表，其名称将在批量生成后更改最后3个字母？

Question

我正在尝试以编程方式导入一个dBase表，其名称的最后3个字母根据当天的批号更改，然后删除该表。用户将使用按钮键入表单上的3个字母批号以运行代码。该表永久存在于X：\ mmm \ dmodata \ DMOAT ___。dbf。这是我的代码：

Dim strPathFile As String, strFile As String, strPath As String

strPath = "X:\mmm\dmodata\" 
strFile = "DMOAT" & Me![ChooseBatchNum] & ".dbf"

strPathFile = strPath & strFile

DoCmd.TransferDatabase acImport, "dBase III", _
    strPathFile, acTable, strFile, "Imported", False

除了错误地说“X：\ mmm \ dmodata \ dmoatAHC.DBF不是有效路径”之外，它的工作原理是准确接受变量（例如dmoatAHC.dbf），但这肯定是因为手动导入效果很好但这对用户来说是不可接受的。它不是ODBC。我之前从未遇到过这个问题。