como evitar cargar un recordset 2 veces

[mlaura23]

Hola foro. Tengo un formulario donde en el evento Load hago:

Dim rs As New ADODB.Recordset

rs.Open "mi consulta sql", Acon, adOpenStatic, adLockReadOnly

Set ob.DataSource = rs

ob.DataField = DF
ob.BoundColumn = DF

Set ob.RowSource = rs

ob.ListField = LF
ob.Refresh
Set rs = Nothing

Para llenar un Datacombo de Localidades (el cual guarda Localidad, CodLocalidad y CodPostal).

Ahora bien, tengo tambien un textbox donde quisiera que al ingresar un codigo postal pueda filtrar sobre el recordset (y de esta manera no abrirlo nuevamente).

Lo que quisiera hacer (y no puedo) es antes de hacer el nothing poder grabar los datos en otro recordset o en una grilla o similar para luego poder hacer un seek o find sobre eso y no volver a abrir otro recordset?

Resumo:

Quisiera abrir el recordset, cargar el datacombo pero que desde un textbox pueda ingresar un codigo postal y poder buscar dentro del recordset que utilize para cargar el datacombo.

Bueno, espero que me entiendan!

Muchas Gracias.

[lokoman]

Hola!!
Por que no declaras el recordset como publico? asi, lo puedes manejar sin problemas... para cerrarlo, pon en el unload del form:

Código vb:

if rs.state=1 then
   rs.close
   Set rs = Nothing
end if
 

[mlaura23]

Gracias por la respuesta, pero el problema es que luego de hacer:

...
ob.ListField = LF
ob.Refresh

No podía hacer ni .movefirst, .find, etc (recordar que ob es un datacombo)

Lo solucione de esta manera:

...
ob.ListField = LF
ob.Refresh
Set rsLocalidad = rs.Clone
Set rs = nothing
...

De esta manera una vez que cargo el datacombo, el contenido del recordset lo "clono" al rsLocalidades el cual es solo para efectuar búsquedas.

Espero haber hecho lo correcto.