変数宣言を
Public db As DAO.Database ⇒Public cn As ADODB.Connection
Public rs As DAO.Recordset ⇒Public rs As ADODB.Recordset
Public Fld As DAO.field ⇒Public Fld As ADODB.field
レコードセット取得を
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
↓
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open strSQL, cn
レコードセット クローズを
Set rs = Nothing
Set db = Nothing
↓
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
あなたの思ったこと、知っていることをここにコメントしてみましょう。