VB Code - Runtime error

[ensignro99]

I am a newbie here and did not know where to post this question.

I am having a runtime error in a program I wrote a few years ago and now I get runtime error #13 - type mismatch.

Here is the code the debugger sent me to and I have placed **'s next to the line that is highlighted in the debugger.

Can anyone help? This has been running for 3 years without a hitch and no one has editted the code.

-----------

Private Sub cmd_Completed_Click()
Dim AlternateID As Variant

txt_SvcDescription.SetFocus
DoCmd.OpenForm "frm2_WorkOrderStatus"
** Forms![frm2_WorkOrderStatus]!lbl_IssuedTo.Caption = Me!IssuedTo
If Not IsNull(Me!PMSpec) Then AlternateID = DLookup("AlternateEmployeeID", "tbl_PmSpecifications", "[ID] = " & [PMSpec])
If Not IsNull(Me!CalSpec) Then AlternateID = DLookup("AlternateEmployeeID", "tbl_CalibrationSpecifications", "[ID] = " & [CalSpec])
If AlternateID > 0 Then
Forms![frm2_WorkOrderStatus].lbl_Alternate.Caption = DLookup("FirstNameLastName", "qry_EmployeeNames", "[Employee_Number] = " & [AlternateID])
Else
Forms![frm2_WorkOrderStatus].chk_Alternate.Enabled = False
End If
End Sub

----------

Thank you very much in advance fir your help.

Sincerely

[Al42]

This doesn't look like VB. Is it in Access VBA?

[ensignro99]

Yes it is an old Access VB program. Sorry for not indenting I do know better I am just going crazy trying to find the problem.
Thanks for the reply.

[Al42]

At a glance, it looks as if the data in Me!IssuedTo isn't something you can set a caption to. Single step to that line, then see what Me!IssuedTo is.