Bom dia!

Tenho um programa que possui um combobox com uma relacao de produtos, mas constantemente os produtos sao incluidos, retirados e alterados. Seria mais facil eum utilizar uma coluna no meu banco e este combo carregar os dados desta coluna.

Como faco para o combo carregar os dados de uma determinada coluna de meu banco.

 

Exemplo:

Banco = Diario_nf

Tabela = Cadastro

Nome da coluna = Produto

 

 

Muito obrigado

Dê uma olhada:

 

Dim sql as String

Dim RS as ADODB.RecordSet

Set RS = New ADODB.RecordSet

 

sql = "SELECT nomecampo FROM tabela"

RS.Open sql, conexao

 

Do While RS.EOF = False

   ComboBox1.AddItem RS!nomecampo

   RS.MoveNext

Loop

RS.Close