Visual Basic - RE:MoveFirst Falla!!!!!

proba con esto

Dim rstFechasMedias As ADODB.Recordset

NomBase = "BDTablas.mdb"
Ruta = "c:\Trabajo\Finanzas\" & NomBase
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set db = New ADODB.Connection
db.ConnectionString = Conexion
db.Open Conexion

Set rstFechasMedias = New ADODB.Recordset
rstFechasMedias.Open "INSERT INTO FECHASMedias SELECT DISTINCT fecha FROM MCHistorico ORDER BY fecha DESC", Conexion, adOpenStatic, adLockOptimistic
.
.
.
.
if not rstFechasMedias.eof then
.MoveFirst '....aqui falla!!!....
end if