Access2013で、親画面から新規登録用子画面をPopupで呼び登録後、親画面で新規登録のレコードを選択する時のエラー

同じレコードソースを持つ帳票フォームAとポップアップ画面Bがあります。
【処理内容】

Aの新規作成ボタンイベントで、Aから新規入力用のB画面を acAddNew, acDialogで開き
B画面で、新規レーコドを追加する作業をして
B画面の保存ボタンを押すことでしてレコードを保存しています。
その後A画面の新規作成ボタンのクリックイベントで処理を継続し、A画面の表示を更新し、新規に入力したレコードを選択する

◆B画面の保存ボタンの処理

Private Sub cmd保存_Click()
'保存処理
Dim i As Long
Dim NewKey As Long
Dim SQL As String
Dim lngCurrentRec As Long

If Me.Dirty = True Then
Ret = MsgBox("入力したデータを保存しますか。", vbQuestion + vbOKCancel)
If Ret = vbCancel Then
cmd取消_Click
GoTo exitH
End If
Set Me.ClsDao_ = New ClsDao
SQL = "Select final_value, [更新日時] from T95ID管理表 "
SQL = SQL & "where "
SQL = SQL & " ID_Name = '作業記録ID';"
NewKey = Me.ClsDao_.SelectID(SQL)
Me.作業記録ID.Value = NewKey

Me.BeforeUpdate = ""
DoCmd.RunCommand acCmdSaveRecord

'採番テーブルに新しいNoで更新をする
ClsDao.UpdateID NewKey
modPub.lngNewRecID = NewKey 'Global変数に新しいID NOをセット（親画面で取得するため）
Set ClsDao = Nothing

BeforeUpdate = "[イベント プロシージャ]"
' Me.Visible = False
DoCmd.Close
End If
End Sub

◆B画面の保存ボタンの処理終わり

【問題点】
問題は、まず１回目には、新規作成ボタンを押して新規データを登録しA画面でその新規レコードを選択することが可能で、同じ事を２回目すると、
※実行時エラー'7951':
RecordSetCloneプロパティに対する不適切な参照を含む式を入力しました。
というエラーが出ます。
その時の画面は、複数行あったのが一レコードだけになってしまい、各項目のTextboxは、「#Name?」が表示されています。

デバッグボタンを押すと以下のソースの「Set Rec = Me.RecordsetClone」で止まります。
この解決方法を教えて下さい。

◆A画面の新規作成ボタンのソースの内容開始
Private Sub cmdNewRec_Click()
Dim ClsDao As ClsDao
Dim SQL As String
Dim NewFm As Form
Dim Rec As Recordset
Dim NewNo As Long
Dim MyFm As Form
Dim StrRecSource As String

Set MyFm = Me.Form
StrRecSource = Me.RecordSource

DoCmd.OpenForm "FXX作業記録(NewEntry_連結版)", acNormal, , , acFormAdd, acDialog

If modPub.lngNewRecID > 0 Then
NewNo = modPub.lngNewRecID
Me.RecordSource = StrRecSource
Me.Requery
Set Rec = Me.RecordsetClone <===ここでエラー
Rec.FindFirst "作業記録ID = " & NewNo
If Rec.NoMatch = False Then
' Me.CurrentRecord = Rec.AbsolutePosition
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, Rec.AbsolutePosition + 1
Rec.Close
Set Rec = Nothing
End If
End If
End Sub
◆A画面の新規作成ボタンのソースの内容終了