[Resolvido] Preencher Combo

[DOliveira 0]

Ola para todos!! Gostaria de saber se alguem pode dizer como preencher um ComboBox com informações de Um BD (Access) usando DAO.Valeu

[Veber 0]

'rstDAO = DAO Recordset : campos(codigo,nome)'myCombo = ComboBoxDim iD As Longrstdao.MoveFirstiD = 0Do While Not rstdao.EOF    myCombo.AddItem rstdao!nome    myCombo.ItemData(iD) = rstdao!codigo        rstdao.MoveNext    iD = iD + 1Loop

[DOliveira 0]

'rstDAO = DAO Recordset : campos(codigo,nome)'myCombo = ComboBoxDim iD As Longrstdao.MoveFirstiD = 0Do While Not rstdao.EOF    myCombo.AddItem rstdao!nome    myCombo.ItemData(iD) = rstdao!codigo        rstdao.MoveNext    iD = iD + 1Loop

Valeu muito obrigado