Unbound form with unbound subform.

I have an unbound form which only displays certain data from a table depending on what data priviledges the user has. Now I wish to include a subform which will show data that matches a field on the unbound form.

The reason I need to do it this way is for data editing/entry purposes. I need to amend the data on the unbound form but not the subform.

The code i use on the On Load event of the unbound form called frmRelatedContactsAilsaForums is as follows:

Private Sub Form_Load()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
   
    cnn.ConnectionString = "DSN=HabiaLocal"
    cnn.Open
   
    With rst
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open "SELECT tblContacts.contacts_ID, tblContacts.Post_Code, tblContacts.Real_name, tblContacts.Surname, tblContacts.title_ID, tblContacts.Occupation, tblContacts.Organisation, tblContacts.Tel_No, tblContacts.Tel_No2, tblContacts.Mobile, tblContacts.Fax_No, tblContacts.Author_email, tblContacts.Homepage, tblContacts.contact_type_ID FROM tblContacts WHERE (((tblContacts.contact_type_ID)=5 Or (tblContacts.contact_type_ID)=6 Or (tblContacts.contact_type_ID)=7 Or (tblContacts.contact_type_ID)=24))", cnn

    End With
   
    Set Me.Recordset = rst
   
    Set rst = Nothing
    Set cnn = Nothing
End Sub

The code i use on the On Load event of the unbound subform called frmRelatedContactsAilsaForumsSubAddress is as follows:

Private Sub Form_Load()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
   
    cnn.ConnectionString = "DSN=HabiaLocal"
    cnn.Open
   
    With rst
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open "SELECT tblMember.Address_1, tblMember.Address_2, tblMember.Address_3, tblMember.City, tblMember.County, tblMember.Location, tblMember.Post_Code FROM tblMember WHERE tblMember.Post_Code='" & Forms![frmRelatedContactsAilsaForums]![Post_Code] & "'", cnn
    End With
   
    Set Me.Recordset = rst
   
    Set rst = Nothing
    Set cnn = Nothing
End Sub

I am having issue with the following syntax:

Forms![frmRelatedContactsAilsaForums]![Post_Code]

If I open the unbound form frmRelatedContactsAilsaForum on its own without a subform then open the subform frmRelatedContactsAilsaForumSubAddress it works, but if I put the subform back into the form frmRelatedContactsAilsaForum I get the following error:

Run-time error '2424':
The expression you entered as a field, control, or property name that Domestic - Habia can't find.

Any help would be much appreciated, NewAS.