I am having trouble with INSERT INTO creating a new record into a different table.

[NCC240]

If Me.user_id > "" Then
Response = MsgBox("This Appeal has been assigned to another analyst.", vbOKOnly)

Else
Me.user_id = Forms!Login!txt MYID
Me.assistance_i d = 3
Me.date_resolve d = Null

RunCommand acCmdRefresh
DoCmd.RunComman d acCmdSaveRecord

insAppealid = Me.appeal_id
insdate = Me.date_complai nt_filed

strSQL = "INSERT INTO [Plan_Details] ([Appeal_ID],[Recon_Timely],[Effectuation_Ti mely],[Received_Date]) VALUES ('" & insAppealid & "','" & 0 & "','" & 0 & "','" & insdate & "');"


End If

Exit_cmdworkapp eal_Click:
Exit Sub

Err_cmdworkappe al_Click:
MsgBox Err.Description
Resume Exit_cmdworkapp eal_Click

[Rabbit]

I don't know what the problem is.