I have a program that uses 4 db combos and 2 calander controls in vb.

Lets call thedb combos 1 2 3 and 4 and call the calander controls one
and 2. They default value for all controls is blank or null.

On each use the user may select any combination of these six controls.
Normally if they select 1 calander control they will use the second.
They represent a beginning and and date.

I need code that will test each control and make it part of the
selection formula if not blank or null.

I am installing beta very soon and would apreciate any help you can give
me.

Thanks,

Joe

this is an example of concatenating a string that will be the selection
 criteria
depending on whether the combo box in question has significant text. I'm not
sure from your message how the calendar controls fit in.
I haven't tested the code below, but I think it  will work.  At any rate it
 demonstrates
the principle involved.

Dim strRptCriteria as string.  

If combo1 <> "" and  not (Isnull(combo1))  then
           strRptCriteria = "{qry1.field1} = " & "'" & combo1  & "'"
end if

If combo2 <> "" and  not(Isnull(combo1))  then
           strRptCriteria = strRptCriteria &  "{qry1.field2} = " & "'" & combo2
  & "'"
end if

CrystalReport1.SelectionFormula = strRptCriteria