try something like this:
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "the main form"
stLinkCriteria = "[ID Number]=" & Me![lstItem].Column(1)
DoCmd.OpenForm stDocName, , , stLinkCriteria
I use it on the onclick event for the listbox