Вы не можете напрямую сделать это в SQL вне хранимой процедуры, ваша хранимая процедура имеет несколько операторов if / else, в SQL-запросах нет структуры, чтобы сделать это, если вы хотите добиться этого, вам нужно будет встроитьлогика написания скриптов из языка, к которому осуществляется доступ (например, c # / php / coldfusion / etc), а затем выполнение отдельных запросов.
С какого языка вы вызываете хранимую процедуру, или это напрямую с сервера SQL?
Редактировать: Некоторое время я не использовал VB6, поэтому я не помню, как написать это в VB, но вы бы в основном копировали логику из хранимой процедуры для построения запросаи затем отправка запроса непосредственно из VB, не позволяя хранимой процедуре сделать это.
например
Dim sql As String
If CCODE <> 'All'
sql = 'SELECT PERSONID FROM T_PERSON WHERE AND (CCODE IN (' & CCODE & '));'
{send the query to sql server}
End If