Visual Basic - MUY URGENTE!!!!!!!!!!!!!!!!!!!

Tengo una conexión ODBC a una Base de datos de Access y estoy intentando cargar un combo con los datos del uno de los campos de una tabla...
El código que empleo en el evento LOAD del formulario es el siguiente:

Me.cbocod.Clear
If Not (dteStock.rsalmacen.BOF) And Not (dteStock.rsalmacen.EOF) Then
dteStock.rsalmacen.MoveFirst
Do Until dteStock.rsalmacen.EOF
Me.cbocod.AddItem (dteStock.rsalmacen.Fields(0).Value)
dteStock.rsarticulos.MoveNext
Loop
End If

Me he metido en numerosos foros y en casi todos proponen un código muy similar a este, sin embargo me casca el error 3021 que dice:
"El valor de BOF o EOF es true o el actual registro se elimino"
Pero no es ninguna de las dos cosas.
ALGUIEN ME PUEDE AYUDAR!!!!!!!!!!!! Estoy desesperado con este error que no me deja arrancar.
Muchas gracias

no entiendo lo que quieres hacer con el codigo que muestras pero yo lo hago de la siguiente forma

Sub peLlenaCombo()
Dim dbTipAge As DAO.Database
Dim rtTipAge As DAO.Recordset
Dim sSql As String

Set dbTipAge = OpenDatabase(gstrDir_Datos & "PARAM.MDB", False, False)
sSql = "SELECT * FROM TIPAGE"
Set rtTipAge = dbTipAge.OpenRecordset(sSql)
If fbValidaTabla(rtTipAge) = False Then
With rtTipAge
.MoveFirst
Do While Not .EOF
cboTipAge.AddItem !AGENTE_TIPO
.MoveNext
Loop
End With
End If
rtTipAge.Close
dbTipAge.Close
Set dbTipAge = Nothing
Set rtTipAge = Nothing
End Sub

solo has los cambios necesarios y pon el procedimiento en el load
la funcion fbvalidatabal solo valida que el recorser no este vacio.

Gracias por tu ayuda, aunque ya solucione el problema es interesante tb ver otras posi bilidades.