Yes the actual code is listed here, I guess you can't set the list index from another form
Private Sub InvDate_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
Dim I As Integer
stDocName = "Invoices"
I = Me.Parent.CurrentRecord - 1
DoCmd.OpenForm stDocName
Forms!Invoices!Combo64.SetFocus
Forms!Invoices!Combo64.ListIndex = I
Forms!Invoices!Command73.SetFocus
Forms!Invoices!BeginningDate = Me.InvDate
Forms!Invoices!EndingDate = Me.InvDate
DoCmd.Close acForm, "frmInvAwIss"
End Sub