Dim s as string
s = "Declare @i int, @s varchar(max) " & _
"EXECUTE [dbo].[ng_update_person] " & _
"@i output" & _
",@s output" & _
",'" & sIDToUse & "'" & _
",0" & _
",NULL" & _
",'" & sLastN & "'" & _
",'" & sMidN & "'" & _
",'" & sFirstN & "'" & _
",'~'" & _
",'" & sAdd1 & "'" & _
",'" & sAdd1_2 & "'" & _
",'" & sCity1 & "'" & _
",'" & sState1 & "'" & _
",'" & sZip1 & "'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'" & sPhone1 & "'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'" & sPhone1 & "'" & _
",'~'" & _
",'~'" & _
",'" & sDOB & "'" & _
",'" & sSex & "'" & _
",'" & sSSN & "'" & _
",'" & sMarried & "'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'" & sRaceID & "'" & _
",'" & sPrefLanguageID & "'" & _
",'~'" & _
",'~'" & _
",'" & sRace & "'" & _
",'" & sPrefLanguage & "'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'" & sEmailAdd & "'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'" & sEntID & "'" & _
",NULL" & _
",'~'" & _
",'~'" & _
",'" & sEthinicity & "'" & _
",'" & sEthinicityID & "'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",'~'" & _
",NULL" & _
",NULL" & _
" " & _
"Select @i as [cd], @s as [des]"