<Before>

1 '変数宣言
2 Dim ThisDb As Database
3 Dim ThisRs(1) As Recordset
4
5 '代入
6 Set ThisDb = CurrentDb
7 Set ThisRs(0) = ThisDb.OpenRecordset("MST_tblFinance", dbOpenDynaset)
8 Set ThisRs(1) = ThisDb.OpenRecordset("MST_tblBank", dbOpenTable)
9 Set ThisRs(0) = ThisRs(0).Open
10
11 'レコードセット移動
12 ThisRs(0).MoveFirst
13 ThisRs(1).MoveFirst

<After>

1 '宣言
2 Dim ThisDb As Database
3 Dim ThisRs(1) As Object
4
5　　'代入
6 Set ThisDb = CurrentDb
7 Set ThisRs(0) = ThisDb.OpenRecordset("MST_tblFinance", dbOpenDynaset)
8 Set ThisRs(1) = ThisDb.OpenRecordset("MST_tblBank", dbOpenTable)
9
10 'レコードセット移動
11 ThisRs(0).MoveFirst
12 ThisRs(1).MoveFirst

Beforeの9行目で7行目の処理とダブっていたThisRs(0).Openを削除、
Afterで3をObjectでの宣言に変えたら動きました。

疲れた…