Preciso de uma forcinha???

[danizinha 0]

Como mostrar os dados em um ComboBox para o usuário selecionar um determinado texto?Estou usando conexão via ADO.Fiz a minha conexão desta forma:Option ExplicitPrivate WithEvents Con_Connection1 As ADODB.ConnectionPrivate WithEvents Rst_Recordset1 As ADODB.Recordset'Conectando com o BancoSet Con_Connection1 = New ADODB.Connection Con_Connection1.CursorLocation = adUseClient Con_Connection1.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\Versatil.mdb; Persist Security Info = False") Set Rst_Recordset1 = New ADODB.Recordset Rst_Recordset1.CursorLocation = adUseClient Rst_Recordset1.CursorType = adOpenStatic Rst_Recordset1.ActiveConnection = Con_Connection1Tenho urgencia!!!!Obrigadadanizinha

[Veber 0]

Rst_Recordset1.Open "SELECT codigo,nome FROM Tabela"Dim iD As LongiD = 0With Rst_Recordset1    Do While Not .EOF        Combo1.AddItem !nome        Combo1.ItemData(iD) = !codigo                iD = iD + 1        .MoveNext    LoopEnd With

use MSGBOX Combo1.ItemData (Combo1.ListIndex )

para saber o CODIGO do NOME selecioado

 

só lembre de verificar se a propriedade TEXT nao esta vazia

e se LISTINDEX esta diferente de -1

 

belesa?

 

Flows