Visual Basic - Error al eliminar registros en masa

Estoy usando el siguiente codigo para eliminar registros de una tabla mediante un recordset pero al parecer al llegar a cierta cantidad de registros (la tabla por lo general tiene miles que cumplen con el criterio de seleccion) produce un error y se sale del programa:

rsLst.Open ("select * from listas where fecha <= #" & Format(xfecha, "m-d-yyyy") & "# order by fecha"), cn, adOpenKeyset, adLockOptimistic
If rsLst.RecordCount > 0 Then
rsLst.MoveFirst
Do While Not rsLst.EOF
rsLst.Delete
rsLst.MoveNext
Loop
End If
rsLst.close

angel trata de hacerlo quitando el record count no lo necesitas si tienes el while con el tb.eof trata asi y puede ser la repuesta.....

CN.EXECUTE delete * from listas where ("select * from listas where fecha <= #" & Format(xfecha, "m-d-yyyy") & "# order by fecha"))

Yo en tu lugar lo haria todo con sql. Haces un delete * where CONDICION. Donde la condicion es el resultado de tu SELECT.