Visual Basic - Problema al cargar registro e imagen desde combo

Hola miren tengo una duda estoy haciendo un programita con b.d para ver fotos.

En mi form tengo un lstfoto(list) ,un imgfoto(imagen) y un cbofecha(combo).La b.d se llama Album,la tabla FOTOS,cuyos campos son FOTOSDICIEMBRE,FOTOSENERO,FOTOSFEBRERO,cada campo con un registro de ejemplo.

La idea es esta que en el combo se visualize los meses,yo coloque 3(diciembre,enero,febrero),al escoger un mes debera visualizar en el LSTFOTO los registros de mi campo de esta manera: Si es diciembre se vera los registros de FOTOSDICIEMBRE,si es enero se vera los registros de FOTOSENERO;y si es febrero los registros de FOTOSFEBRERO.

Y al darle click en cada registro se visualize la foto,cree 3 carpetas para foto de enero,febrero y diciembre cada una con 1 imagen,claro la imagen debera ser igual al nombre del registro.

A mi me sale el programa pero se me habia ocurrido hacerlo con el COMBO.y es asi donde me complico bueno aqui os dejo un codigo que realize pero me marca error que el valor eof debe ser true....bla,bla.. y aun cuando agrege registros a mi b.d me sale error

Private Sub cbofecha_Click()
Select Case cbofecha.Text
Case "Diciembre"
rs.Find "FotosDiciembre= '" + Trim(lstfoto) + "'"
imgfoto = LoadPicture("D:\Album\Fotos\foto diciembre\" + rs.Fields(0) + ".gif") 'rs(0)
Case "Enero"
rs.MoveFirst
rs.Find "FotosEnero= '" + Trim(lstfoto) + "'"
imgfoto = LoadPicture("D:\Album\Fotos\foto enero\" + rs.Fields(1) + ".jpg") 'rs(0)
Case "Febrero"
rs.MoveFirst
rs.Find "FotosFebrero= '" + Trim(lstfoto) + "'"
imgfoto = LoadPicture("D:\Album\Fotos\foto febrero\" + rs.Fields(2) + ".jpg") 'rs(0)
End Select

Bueno este es mi problema no se que este mal,o talvez lo haga en el lst,en fin igual no me salio,espero que me ayuden porfavor.De antemano gracias.

SANDRO