For reasons of style I have a form that consists of subforms.  This form's data source is a linked table called "drivers"

On this forms are reports and subforms that are based on queries.  I've added a "choose date range" button to the form with the following script

Private Sub ChooseDateBTN_Click()
  TempVars("selecteddriver") = [Driver ID].Value
  DoCmd.OpenForm "datepicker"
End Sub

As you can see I'm using a tempvar "selecteddriver" to identify the current record in the form that i"m on.   I've also tried getting the current record number as well.   THe datepicker form is a popup form so what I need to happen is that I can choose the form, close it and refresh the form that I'm looking at. (in this case, drivers).  When I open this form and choose dates it works but when it returns to the refresh form it always returns to the first record.

Here's the script on the ok button of the popup form.

Details

Private Sub okbtn_Click()
On Error Resume Next
TempVars("SelectedStartDate") = Nz(StartDate.Value, 0)
TempVars("Selectedenddate") = Nz(EndDate.Value, 0)
DoCmd.Close
Dim f As Form

    For Each f In Access.Forms
        f.Requery
    Next

'On Error GoTo skipit
DoCmd.OpenForm "drivers", acNormal, , driverid = [TempVars]![selectedriver]

DoCmd.Requery

skipit:
DoCmd.OpenForm "drivers"
End Sub
Copy

How can I get it to return to the same record after the refresh.