VB 6应用程序抛出错误服务器主体（用户名）在当前安全上下文下无法访问数据库生产

Question

我正在使用用vb 6编写的旧版应用程序。在代码中有一个嵌入式sql查询。我正在尝试在另一个数据库上进行左联接。使用以下选择语句：

SQL = "select h.case_ref, t.t5_desc, h.narisno, h.valuation_ref, h.claimant, h.t5," & _
" h.claim_amount, h.claim_date , h.dateofentry, h.case_completed, l.project_short_name AS narisno_desc, h.case_type "
If blnFromCaseRefSelection = True Then
    SQL = SQL & " from case_header h left join lut_t5 t on h.t5 = t.t5 left join" & _
    " [production].[dbo].[xxx_01_project_attributes] l on  h.nno = l.pin where h.case_ref = '" & cboCaseRef.Text & "'"
Else
    SQL = SQL & " from lut_fileref f, case_header h left join lut_t5 t on h.t5 = t.t5" & _
    " left join lut_nno n on h.nno = n.nno Where h.case_ref = f.case_ref" & _
    " and f.ha_fileref = '" & xxoHAFileRef.Text & "'"
End If

  

错误：服务器主体（用户名）无法访问数据库   当前安全环境下的生产

关于ui如何解决此问题的任何想法，我对VB 6的经验都是基本的