...
...
Try
SentenciaSql="SELECT codigocompania, codigoarticulo, descripcion, nombrecorto , precio, porcentajeitbm , imagen FROM articulos where codigocompania = " & "'" & CodigoCompaniae & "'" & " and codigogrupo = " & "'" & CodigoGrupoe & "'" & " and EStatus = " & "'" & "A" & "'"
Dim...