私は、Access 2007でCurrentProject.Connectionが含まれる行にヒットすると、クラッシュするレガシーデータベースの.mdbデータベースを使用しています。
同じコードを新しいデータベースに追加すると、それらもクラッシュします。
Dim rstDateFields As New adodb.Recordset
rstDateFields.Open "SELECT * FROM defDateFields ORDER BY FieldID", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
設定される参照:VBA、MS ACCESS 12.0オブジェクトライブラリ、OLEオートメーション、MS Ofrfice 14.0Accessdbエンジンオブジェクト