Veja se ajuda

Dim dd,mm,yy

 

        dd = Left(txt_inicial, 2)
        mm = Mid(txt_inicial, 4, 2)
        yy = Right(txt_inicial, 4)
        aux = aux + "Date(Year({laudos_obras.data_entrada}),Month({laudos_obras.data_entrada}),Day({laudos_obras.data_entrada})) >= Date(" + yy + "," + mm + "," + dd + ")"

    frm_printer.Crystal_Printer.SelectionFormula = aux

 

Vai pegar a data maior ou igual a txt_inicial