Need Help With Double Click Open Form Code

Hello..

I have the following code that I have been trying to get to work:

Private Sub txtSocNumber_DblClick(Cancel As Integer)
On Error GoTo Err_txtSocNumber_DblClick

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmApplicantFullDetails"

If IsNull(Me.txtSocNumber) Or Me.txtSocNumber = "" Then
MsgBox "This record is empty", vbInformation, "No Data"
Me.txtSocNumber.SetFocus
Else
stLinkCriteria = "[ApplicantID]=" & Me![InvestigatorID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Exit_txtSocNumber_DblClick:
Exit Sub

Err_txtSocNumber_DblClick:
MsgBox Err.Description
Resume Exit_txtSocNumber_DblClick
End Sub


I have the following two tables:

Applicant and Investigator

Applicant:
ApplicantID
InvestigatorID
etc

Investigator:
InvestigatorID
etc

The relationship is setup as 1 investigator to many applicants.

What I am trying do is this. I have form with a subform in it. In the subform there is applicant info IE SS# LName, FName and that is it. What I want to do is be able to double click on the SS# have the form "FrmApplicantFullDetails" open so you can view the work up on the applicant or edit info on the applicant.

Am I going about this the right way with the above code? Or is there something else I am missing in the code or is there code out that will do what I am looking for that is easier?

Thanks
R~