我有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
启动子程序后，出现错误13。 猜猜将连接字符串定义为字符串是错误的，因为我需要一个变体，对吧？