Olá Pessoal: Sou novato em VB e nesse Forum, e estou tentando fazer uma pesquisa no bd do Acces, talvez tenha uma forma melhor de fazer isso , ou se puder me ajudar como resolver esse problema, ficarei muito agradecido. Tenho uma tabela com campo data de compra, quantia gasta.etc. O código abaixo dá certo, mas quando ele vai para o registro que não existe ele apresenta o erro.Como faço para resolver isso, o código é o seguinte: Rs.MoveFirst ' envia para o primeiro registro If not rs.Eof then For I : vdataInicial to vdatafinal vQuantia = vQuantia + rs!Quantiagasta rs.movenext next i end if label5.caption = vQuantia Obs: Não sei se é a melho forma de fazer isso, o que eu quero é somar os campos das tabelas atráves do text da data inicial e final definida pelo usuário. Ats, Laf