Still receiving the error. The routine now looks like:
loSqlServer = CREATEOBJECT('SQLDMO.SqlServer')
loSqlServer.LoginSecure = .T.
loSqlServer.Connect('WAC_SQL_02')
loSQLServer.ExecuteImmediate('SET QUOTED_IDENTIFIER OFF')
loSQLServer.ExecuteImmediate('SET ANSI_WARNINGS OFF')
loSQLServer.ExecuteImmediate('SET ANSI_NULLS ON')
loSQLServer.AnsiNulls = .T.
loDataBases = loSqlServer.DataBases
loDataBase = loDataBases.Item['USP']
loDataBaseViews = loDataBase.Views
loDataBaseView = loDataBaseViews.Item['OldViewName']
lcText = loDataBaseView.text
lcText = STRTRAN(lcText,"OldViewName","NewViewName")
lctext = STRTRAN(lctext,"0102004","0009019")
loNewView = CREATEOBJECT('SQLDMO.View')
loNewView.Name = 'NewViewName'
loNewView.text = lctext
loNewView.Owner = 'dbo'
loNewView.AnsiNullsStatus = .T.
loDataBaseViews.Add(loNewView)
