Selecionar un ítem concreto en un combobox

[GeoAvila]

bueno aqui podes descargar un datalist, que basicamente lo mismo que un datacombo, bien en la propiedad boundtext del datacombo asi como aparece aqui en el datalist, dentro de la accion change tendria que ir algo asi

por cierto el link es este
para un post anterior alli esta la direccion para datalist

http://www.forosdelweb.com/showthrea...402#post751402

y dentro del change del datalist va algo asi

Código:

             Dim db As Connection
             Dim adoPrimaryRS As Recordset
             dim BasePath as String
             Set db = New Connection
             Set adoPrimaryRS = New Recordset
             db.CursorLocation = adUseClient
             db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePath
 adoPrimaryRS.Open "select nit_cliente,nombre,apellido,direccion,cliente from clientes where nit_cliente ='" & datacombo.BoundText & "'", db, adOpenStatic, adLockOptimistic
             If adoPrimaryRS.BOF = False Then
 if adoPrimaryRS!cliente = true then ' "Cliente" e boolean para el credito, si tiene da true y si no da false..
                           msgbox "El cliente si posee credito"
                  else
                            msgbox "El cliente NO posee credito"
             Else
             MsgBox "El Cliente no existe ¿Desea agregarlo S/N?", vbInformation + vbYesNo, "Clientes"
             
             End If

aso asi tendrias que poner en tu combo una consulta para que revise el resultado del item que seccionaste la variable "BasePath" es el direcctorio de la base de datos en este caso una de access, es una idea nadamas si tenes problemas avisame..

nos vemos