Fala Tiago, pra preencher combobox eu utilizo uma função q eu mesmo criei..
onde vc passa o nome do combobox, o campo a ser mostrado e o valor...
para pegar o valor do item selecionado basta o seguinte:
valor = combobox.itemdata(combobox.listindex)
para selecionar um item no combobox automaticamente basta fazer um loop e verificar o valor referente e setar o listindex.
segue a minha função abaixo: (detalhe eu uso DAO com ela)
Sub Adicionar(cbo, SQL As String, Campo As String, valor As String)
cbo.Clear
Dim RST As Recordset
Set RST = Dados.OpenRecordset(SQL)
While Not RST.EOF
If InStr(Campo, ",") Then
campos = Split(Campo, ",")
cbtxt = ""
For x = LBound(campos) To UBound(campos)
cbtxt = cbtxt & RST(campos(x)) & " "
Next
cbo.AddItem cbtxt
Else
cbo.AddItem RST(Campo)
End If
If valor <> "" Then
cbo.ItemData(cbo.ListCount - 1) = RST(valor)
End If
RST.MoveNext
Wend
RST.Close
Set RST = Nothing
End Sub
