[Resolvido]Carregando uma Combo Via Sql e encerrando a conexao..

Meus prezados, este código esta funcionando perfeitamente.. so uma dúvida..

Gostaria que olhassem e vejam se esta certo quanto ao encerramento da conexão...

Grato


Private Sub CarregaCombo()
Dim strCboVisitande, StrCboDetento As String

'String com path para conexão com a base de dados.
strPath = "C:\Syspen\Syspen_be.accdb"
' Conecta ao banco de dados
' Se vc estiver tbls vinculadas use:
'Set dbBanco = CurrentDb()
Set dbBanco = OpenDatabase(strPath)



'ComBox CboVisitante
strCbo = "SELECT CnsVisitantesMineiros.Visitante AS NOME, CnsVisitantesMineiros.IDVisitante As IDENTIFICAÇÃO,CnsVisitantesMineiros.ID FROM CnsVisitantesMineiros IN '" & strPath & "'" _
& " ORDER BY CnsVisitantesMineiros.Visitante ; "
Me.CboVisitante.RowSource = strCbo
Me![CboVisitante].ColumnCount = 3
Me![CboVisitante].ColumnWidths = "7cm;3cm;0cm;"

'ComBox CboDetento
StrCboDetento = "SELECT ID, Nome AS DETENTO FROM Detentos IN '" & strPath & "'" _
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='Fechado';"
Me.CboDetento.RowSource = StrCboDetento
Me![CboDetento].ColumnCount = 4
Me![CboDetento].ColumnWidths = "0cm;7cm;0cm;0cm"


'Encerra a conexão
dbBanco.Close
Set dbBanco = Nothing

É por aí mesmo. Tudo certo.

Vi que tem um outro tópico sobre isso e sem respostas. Vou excluí-lo, ok?

Ok Amigão.. é que aquele eu estava a carregar a combo adpatando aquele seu código..
Mas o do outro tópico ja está funcionando.. pode excluí-lo Sim...
Uma questão..

O Set dbBanco = Nothing

Não é necessário.. ou é????

Set dbBanco = OpenDatabase(strPath) → aqui você o setou como alguma coisa. Então, precisa desfazer no final colocando como Nothing.

ok.. Mais um detalhe se puder, pois tem haver com o código que esta ai..

pode dar uma olhadinha nisto para mim, pois o alexandre corrigiu mas teve um problema e o mesmo ainda nao me deu resposta,, e eu estava realmente precisando, pois faz parte desse codigo

http://maximoaccess.forumeiros.com/t2805-criterios-de-pesquisa-em-sql