Preencher combobox vba com dados do access

[Rick Santana 0]

Amigos,

 

Sou iniciante na programação em vba e não consigo preencher uma combobox com os dados de uma tabela no access.

 

Obrigado.

[KhaosDoctor 242]

Poste um trecho do código por favor.

[Rick Santana 0]

Khaos,

 

consegui montar o código ontem.

 

Dim bd As Database

Dim dt As Recordset

Dim sql As String

Set bd = OpenDatabase(ActiveWorkbook.Path & "\MonitoriaDB.mdb")

Set rs = bd.OpenRecordset("SELECT [Nome] FROM [Tab_Agente]")

Do While Not rs.EOF

Me.cboAgente.AddItem rs.Fields(0) & ""

rs.MoveNext

Loop

bd.Close