strSQL = "UPDATE GROUP_MANAGEMENT.GROUP_MGMT.tblGroupCases "
strSQL = strSQL & "SET GROUP_MANAGEMENT.GROUP_MGMT.tblGroupCases.Subject_Officer = "
strSQL = strSQL & "GROUP_MANAGEMENT.GROUP_MGMT.tblGroupCases.Subject_Officer + " & vbCrLf & " + "
strSQL = strSQL & "IADATA.DBO.OFFICERS.TITLE + ' ' + IADATA.DBO.OFFICERS.FNAM + ' ' + IADATA.DBO.OFFICERS.LNAM, "
strSQL = strSQL & "GROUP_MANAGEMENT.GROUP_MGMT.tblGroupCases.Subject_Officer_Cnt = "
strSQL = strSQL & "GROUP_MANAGEMENT.GROUP_MGMT.tblGroupCases.Subject_Officer_Cnt + 1 "
strSQL = strSQL & "FROM GROUP_MANAGEMENT.GROUP_MGMT.tblGroupCases, "
strSQL = strSQL & "IADATA.DBO.ASSOC_INC_OFF, IADATA.DBO.OFFICERS "
strSQL = strSQL & "WHERE GROUP_MANAGEMENT.GROUP_MGMT.tblGroupCases.INCNUM = IADATA.DBO.ASSOC_INC_OFF.INCNUM AND "
strSQL = strSQL & "IADATA.DBO.ASSOC_INC_OFF.OFFNUM = IADATA.DBO.Officers.OFFNUM AND "
strSQL = strSQL & "IADATA.DBO.ASSOC_INC_OFF.LINK_TYPE = 'OFFICER';"