Fechar conexão mantendo os registros na ListBox

Boa noite pessoal!!

Estou usando com sucesso o seguinte código disponibilizado pelo mestre Avelino Sampaio:

Private Sub Form_Load()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Set bd = OpenDatabase("c:\maestro\maestro_v3_be.accdb", False, False, ";pwd:=a1234")
Set rs = bd.OpenRecordset("SELECT códigoDocliente FROM tblpedidos;")
Set Me!Lista8.Recordset = rs 'O segredinho aqui é o SET no início
End Sub

Mas não consigo fechar a conexão e manter os dados na listbox. Para que a listbox continue carregada, a conexão tem que está aberta.
Gostaria de saber como carregar a listbox e manter os dados após o close da conexão?
Ficarei imensamente grato pelo apoio.

Marcos

Acrescente as duas linhas em azul:

Dim bd As DAO.Database
Dim rs As DAO.Recordset

Set bd = OpenDatabase("D:\Trabalhos\maestro\Maestro_v2_be.accdb", False, False, ";PWD=a1234")
Set rs = bd.OpenRecordset("SELECT códigoDocliente FROM tblpedidos;")
Set Me!Lista8.Recordset = rs 'O segredinho aqui é o SET no início

Set bd = Nothing
Set rs = Nothing

Dessa maneira irá fechar a conexão e manterá os dados na listbox.

Abraços

Olá, bom dia.
Mesmo fazendo o que você me instruio a conexão com o banco ainda permanece aberta, pois o arquivinho laccdb continua lá.

Mas quando eu carrego a listbox com AddItem, ela carrega, eu fecho a conexão, esvazio da meméria, e a listbox continua carregada.

O motivo que eu mudei para esse código, é porque ouvi falar bastante que o AddItem trava, se tiver uma lista muito grande, que é o meu caso.

Realmente Marcos

Como os dados da listbox estão atrelados ao recordset, uma vez que feche esse último,
os dados da listbox se perdem.

Eu contornei isso utilizando um Array.
Veja que o exemplo abaixo, é para popular somente uma coluna da listbox, conforme o próprio exemplo postado por você.

Código:


Private Sub Form_Load()

Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim nreg As Integer, I As Integer, x As Integer, vreg As String
Dim regsA() As Variant
Set bd = OpenDatabase("c:\maestro\maestro_v3_be.accdb", False, False, ";PWD=a1234")
Set rs = bd.OpenRecordset("SELECT códigoDocliente FROM tblpedidos;")

rs.MoveLast
nreg = rs.RecordCount - 1
ReDim regsA(nreg + 1)
rs.MoveFirst
For I = 0 To nreg
    regsA(I) = rs!códigoDocliente    ' Inicialize a matriz.
    rs.MoveNext
Next I
For x = 0 To nreg
 vreg = vreg & regsA(x) & ";"
Next x

Me!Lista8.RowSource = vreg

rs.Close
bd.Close
Set rs = Nothing
Set bd = Nothing

End Sub


Abraços

Muito obrigado pela resposta! E para carregar mais de uma coluna?

Bom então deverá usar Array bi - tri dimensional

Veja sobre array e Dim na ajuda o Access e dê uma pesquisada no oráculo (google)
que tem bastante material para estudos.

Abraços