Error consulta VB 6 con Sql server 2008

[tattojk]

Cordial saludo.

Estoy revisando un aplicativo desarrollado en VB 6 y utiliza la BD Sql Server 2008; mi problema es el siguiente: cuando hago la siguiente consulta por VB:

select ArtCodigo, BarBarra , ArtNombCome From barra, articulo Where artcodigo = BarArtiCodi and cast(barbarra as numeric) <> cast(artcodigo as numeric) Union select ArtCodigo, BarBarra , ArtNombCome From barra, articulo Where artcodigo = BarArtiCodi and cast(barbarra as numeric) = cast(artcodigo as numeric) and artcodigo not in(select ArtCodigo from barra, articulo Where artcodigo = BarArtiCodi and cast(barbarra as numeri) <> cast(artcodigo as numeric)) order by artcodigo

me sale el siguiente error: Error converting data type varchar to numeric

Pero si ejecuto la misma consulta en el analizador de consultas de Sql Server 2008 no me genera ningun error.

En VB estoy trabajando con ADO y esto es lo que hago: primero realizo la conexion y

Set VOPM_Rs = New ADODB.Recordset

VOPM_Rs.Open VL_CadSql, VOPM_Cn, adOpenStatic, , adCmdText

Agradezco de antemano las sugerencias y ayuda que me puedan brindar.