Ajuda Com Bof e Eof Urgente

Ola pessoal é a primeira vez que participo do forum,

estou fazendo uma pesquisa com ADODataSet até ai blz..
coloquei um DateTimePicker1 para pegar as datas só que quando o bendito não encontra nada lá vem o BOF eEOF são verdadeiros

Código:
void __fastcall TForm16::Button1Click(TObject *Sender)
{
ADODataSet1->Close();
ADODataSet1->CommandText = (´Select *From PLanilhaLinha1 WHERE Código IN (Select Código FROM PLanilhaLinha1 WHERE Data BETWEEN Data1 AND Data2 AND Hora BETWEEN ´06:30:00´ AND ´14:30:00´)´);
ADODataSet1->Parameters->ParamByName(´data1´)->Value = FormatDateTime(´dd/m/yyyy´, DateTimePicker1->Date);
ADODataSet1->Parameters->ParamByName(´data2´)->Value = FormatDateTime(´dd/m/yyyy´, DateTimePicker1->Date);
ADODataSet1->Open();
}

Por favor me deem uma solução estou sem oque fazer
a tembem ja coloquei o while(!ADODataSet1->Eof){
só que se ele não encontra nada ele fecha o ADODataSet e não abre mais