Query on form not pulling data

[pokdbz]

I have a form FormInterviewCalendar2 and a subform Subform4MonthStatus
I need to pull the InterviewID from the Subform4MonthStatus but I do not
know how.
Also does my code look right using the begin transer and commit transfer
statements.

Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click

save = True
'Call InterviewSession.OpenSession
' Dim sessionDate As Date

Dim qdfDone As DAO.QueryDef
Dim qdfStudyIdSSN As DAO.QueryDef
Dim qdfNextDate As DAO.QueryDef
Dim qdfRemindDate As DAO.QueryDef

If Check1 = True Then

DBEngine.BeginTrans

Set qdfDone = CurrentDb.QueryDefs("QueryAddDoneSession")
qdfDone.Parameters("newId") = InterviewID
qdfDone.Parameters("newVisit") = 1
qdfDone.Execute

DBEngine.CommitTrans

Set qdfNextDate = CurrentDb.QueryDefs("QueryAddStatusNextDate")
qdfNextDate.Parameters("newId") = InterviewID
qdfNextDate.Parameters("newVisit") = 2 'schedule next interview
qdfNextDate.Parameters("newInterviewDate") = DATE + 112
qdfNextDate.Execute

qdfNextDate.Close

Set qdfRemindDate =
CurrentDb.QueryDefs("QueryAddStatusReminderDate")
qdfRemindDate.Parameters("newId") = InterviewID
qdfRemindDate.Parameters("newVisit") = 1
qdfRemindDate.Parameters("newCallDate") = DATE + 90
qdfRemindDate.Execute

qdfRemindDate.Close



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
save = False
Call InterviewSession.CloseSession
End If

Form.Requery

Exit_cmdSave_Click:
Exit Sub

Err_cmdSave_Click:
MsgBox Err.Description
Resume Exit_cmdSave_Click

End Sub