Attacment dialog box on forms

[Singlespeed]

I have an attachment field in my table and I can see all of the dialogue buttons on the dialogue box but when I add the field to my form all of the buttons are greyed out and the only one I can click is "Cancel"

How can I configure the attachment control on the form so that it works

if I find a record that has an attachment that I added directly into the table I can see the attachments but Add and Remove are greyed out!

 

[Singlespeed]

I think my old VB that runs when I open the form is effecting the attachment dialog.

this is what runs when I open the form

Private Sub AddNewALRecord_Button_Click()
On Error GoTo Err_AddNewALRecord_Button_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmALRecordAdd1"
stLinkCriteria = "[*ALN_ACTIVITY].Hospitalid=" & "'" & Me![Hospitalid] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Hospitalid] = '" & Me![FindPatient_Combo] & "'"
Exit_AddNewALRecord_Button_Click:
Exit Sub
Err_AddNewALRecord_Button_Click:
MsgBox Err.Description
Resume Exit_AddNewALRecord_Button_Click
End Sub

and this runs when the form loads

Private Sub Form_Load()
'MsgBox ("Form Load")
' Set the text box and date picker to today's date
Me.[ActiveXCtl39].Value = date
AddEpisode_Calendar.Value = date
ALN_DATE.Value = date
End Sub


what to I need to add to make the dialog work!