type Mismatch - on Query - need another pair of eyes.

Private Sub cmdCopyPOH_Click()
Dim strsql, gUser, gId, gAPNo, gPOHId As String
Dim rs As Recordset
gAPNo = Me.txtApToCopyTo.Value
gPOHId = Me.intCtrPartsOnHold.Value
 
gUser = Environ$("UserName")
strsql = "INSERT INTO TA_PartsOnHold ( Ap1, DwgNo, NameEngr, BEMS, DwgBOLD, EngrPartRvwRqst, EngrgPOH_CmplDt, EFP_POH_CmplDt, DtT, SelRec )" & _
            " SELECT  " & Chr(39) & gAPNo & Chr(39) & " AS Ap1, DwgNo, NameEngr, BEMS, DwgBOLD, EngrPartRvwRqst, EngrgPOH_CmplDt, EFP_POH_CmplDt, DtT, SelRec" & _
            " FROM TA_PartsOnHold" & _
            " WHERE CtrPartsOnHold = " & gPOHId & ""
        CurrentDb.Execute (strsql)
     '>>>>>>>>   strsql = "Select max(CtrPartsOnHold) as POHID from TA_PartsOnHold where user =  'bd645c' "
    ">>>>>>>   ' strsql = "Select max(CtrPartsOnHold) as POHID from TA_PartsOnHold where user =  " & gUser & " "
        Debug.Print strsql
        Set rs = CurrentDb.OpenRecordset(strsql)
        Do Until rs.EOF
            gId = rs.Fields("POHID").Value
        Loop
       DoCmd.GoToRecord , , acGoTo, "CtrPartsOnHold = " & gId & ""
 
End Sub