Private Sub SearchResults_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_File_Info"
stLinkCriteria = "[FileNumber]=" & Me![SearchResults]
DoCmd.OpenForm "frm_File_Info", acNormal, , "FileNumber=" & Me.SearchResults.Column(1)
End Sub