Ninguém? Nenhum palpite? Em Delphi, fazia assim por exemplo:

 

frmDm.qryConsPesq.Close;
frmDm.qryConsPesq.Parameters.ParamByName('prmNumProt').Value := '%' + edtNumProt.Text + '%';

 

If dblcInst.Text = ' Then
   frmDm.qryConsPesq.Parameters.ParamByName('prmInst').Value := '%'
Else
   frmDm.qryConsPesq.Parameters.ParamByName('prmInst').Value := dblcInst.Text;

 

If Trim(edtDatEntrInic.Text) = ' Then
   frmDm.qryConsPesq.Parameters.ParamByName('prmDatEntrInic').Value := StrToDate('01/01/1900')
Else
   frmDm.qryConsPesq.Parameters.ParamByName('prmDatEntrInic').Value := StrToDate(edtDatEntrInic.Text);

   

If Trim(edtDatEntrFin.Text) = ' Then
   frmDm.qryConsPesq.Parameters.ParamByName('prmDatEntrFin').Value := StrToDate('31/12/2099')
Else
   frmDm.qryConsPesq.Parameters.ParamByName('prmDatEntrFin').Value := StrToDate(edtDatEntrFin.Text);

 

frmDm.qryConsPesq.Open;

Ninguém?!?

Consegui fazer uma gambiarra e resolver a situação, fiz assim:

[CODE]
dim prm1 as string
dim prm2 as string
dim prm3 as string

If situacao_A then
   prm1 = "A1"
else
   prm1 = "A2"
end if

If situacao_B then
   prm2 = "B1"
else
   prm2 = "B2"
end if

If situacao_C then
   prm3 = "C1"
else
   prm3 = "C2"
end if

.
.
.

de.qryConsPesq prm1, prm2, prm3

[/CODE]

Ufaaaaaaa!!!