+ Fix for bug #6898, thanks to tip from Martin Schreiber

git-svn-id: trunk@4331 -

fcl/db/bufdataset.inc

@@ -88,6 +88,7 @@ begin
     FCurrentRecBuf := FCurrentRecBuf^.next;
     FreeRecordBuffer(pc);
     end;
+  FFirstRecBuf:= nil;
   SetLength(FFieldBufPositions,0);
 end;