You can still use Mile's code.
The only thing you have to do different is specifiy which column you want to compare data to.
DoCmd.OpenForm "MyForm",,,"mid =" & Forms!ListForm!lstBox.Column(0)
DoCmd.OpenForm "MyForm2",,,"location =" & Forms!ListForm!lstBox.Column(1)
And so on.....
Hope this...