我已经完成了在ODBC管理员中添加数据源的工作。我使用MS-Access打开了mdb文件。我曾尝试运行，但它显示“与'nas msql'的ODBC连接失败。当我调试时，它在VBA代码“ Set rst1 = db.OpenRecordset(strSQL1, dbOpenSnapshot)中显示”。请分享您的知识来解决此问题。
strSQL1 = strSQL1 & " ORDER BY (p_end_date);"
db.QueryDefs![cabs_period].SQL = strSQL1
Set rst1 = db.OpenRecordset(strSQL1, dbOpenSnapshot)