Ayuda con Dato de un COMBOBOX!!!

[fefitiri]

Hola!
Mi problema es el siguiente; Tengo un Procediemiento almacenado que me devuelve una serie de informacion. Toda esa informacion yo la reflejo en mi formulario. Es como un boton buscar.
El problema es que no se como reflejar la informacion que va en combobox, porque toda la demas la meto en txt...

Es algo como asi:

Public Function TraeDatos()
Dim STA As ADODB.Command
On Error GoTo Error

Set STA = New ADODB.Command
Set STA.ActiveConnection = Gbl_ConexDesarrollo
STA.CommandText = "TraeInfo"
STA.CommandType = adCmdStoredProc
STA.Parameters.Refresh

STA.Parameters(1) = Trim(txtFactura.Text)
STA.Parameters(2) = 0 ' Rut
STA.Parameters(3) = 0 ' Razon Social
STA.Parameters(4) = 0 ' Vendedor
STA.Execute

txtRut = STA.Parameters(2).Value
txtRazonSocial = STA.Parameters(3).Value
CbVendedor = ????????????????????????? <-------- ESTE ES MI PROBLEMA!

Porque en el formulario tengo mi combobox y no se como seleccionar el elemento que me devuelve mi procedimiento....


De ante mano muchas gracias!!!!

[Marcelote]

No entiendo muy bien, me parece que quieres decir cómo mostrar el Item del Combobox que contiene el dato determinado ¿no?

Si es así, hay varias maneras, o con API (sendmessage()) o con un bucle.
Hay muchos ejemplos por la Red de ambos, pero por sie acerté con lo buscado te pongo uno que suelo usar:

Código:

'La llamada sería:
CbVendedor = BuscaTextoEnCombo(CbVendedor, STA.Parameters(4).Value)
'Como devuelve -1 si no lo halla, el combo no muestra nada. Caso de encontrarlo se posiciona en él

'Función:
Function BuscaTextoEnCombo(Combo As ComboBox, TEXTO As String, Optional CaseSensitive As Boolean = True) As Integer

    Dim nFor As Integer
    BuscaTextoEnCombo = -1
    If TEXTO = vbNullString Then
        Exit Function
    End If
    For nFor = 0 To Combo.ListCount - 1
        If CaseSensitive Then
            If Trim(TEXTO) = Trim(Combo.List(nFor)) Then
                BuscaTextoEnCombo = nFor
                Exit For
            End If
        Else
            If UCase(Trim(TEXTO)) = UCase(Trim(Combo.List(nFor))) Then
                BuscaTextoEnCombo = nFor
                Exit For
            End If
        End If
    Next nFor

End Function

Un saludo.

[fefitiri]

Muchas gracias por tu aporte! la verdad es que ya encontre la forma de acerlo y lo hice con un For!

Gracias!!!!!
=)