Access Puxar dados do access para uma combox

[Alexandrealx]

Option Explicit
Private Sub btnbusca_Click()

Call carregar_nomes

End Sub

Sub carregar_nomes()

ConnectBD
Rs.Open "Select Nomes from cadastro", BD, 3, 3
Do Until Rs.EOF
Me.cmbnomes.AddItem Rs!nomes
Rs.MoveNext
Loop
fecharBD

End Sub

Estou recebendo o erro 3709 a conexão não pode ser usada para realizar esta operação. Ela está fechada ou é invalida neste contexto.

PHENIX.rar

[Denis Bopp]

Acho que você deveria inicializar a variável de conexão do banco de dados BD = ConnectDB, faz muito tempo que não abro um Access.