我有 2 个模块（一个包含 ODBC (FoxPro) 数据库的 DSN 连接字符串，另一个包含一些获取 dat 的代码）。我的目标是为我需要的所有连接使用连接字符串（基于存储在 Windows 中的 DSN 连接），而不是一遍又一遍地编码相同的字符串。
这是我到目前为止所得到的：
第一个模块
Option Compare Database
Public Const ConnectionStringEasyProd As String = """ODBC;DSN=EasyProd PPS;DataDirectory=M:\;SERVER=NotTheServer;Compression= ;DefaultType=FoxPro;Rows=False;Language=OEM;AdvantageLocking=ON;Locking=Record;MemoBlockSize=64;MaxTableCloseCache=5;ServerTypes=6;TrimTrailingSpaces=False;EncryptionType=RC4;FIPS=False"""
第二个模块
DoCmd.TransferDatabase acImport, ConnectionStringEasyProd, acTable, "BEL_PLZ", "Belegungsplaetze_Temp", False
启动 sub 后出现错误 13. 猜想将连接字符串定义为字符串是错误的，因为我需要一个变体，对吧？