Visual Basic - PROBLEMA CON RECORDSET

Hola : Resulta q estoy abriendo una tabla de access con la sentencia ::
set rsF = BDH.openrecordset("SELECT * FROM story ")
y esta solo recupera el primer registro de la misma cuando en realidad deberia recuperar muchisimos (toda la tabla) Alguien sabra como puedo solucionar este problema, o a q se debe...???? GRACIAS

Hola, al parecer la sentencia esta correcta. Tal vez el error este en otro lado, por ej. al cargar los datos del recordset quizas lo estes haciendo mal???

Yo hago asi:

dim Consulta as string
dim Rs as recordset

Consulta = "Select * from story"
Set Rs = BDH.OpenRecordset(Consulta,,dbSeeChanges)
Do while not Rs.EOF
Combo.AddItem Rs!Campo1
Rs.MoveNext
Loop
Rs.close
Set Rs = nothing

Gabriel.