Amigos, estou precisando de popular um combobox com opções de um recordset.
Isso em um objeto combobox do VBA do Outlook, ou seja, o código deve ser em
vbscript, e não temos a propriedade add.items. Se alguém tiver alguma ajuda,
serei grato.
Abaixo segue uma pequena amostra do código

Set cnx1 = CreateObject("ADODB.Connection")
Set rst1 = CreateObject("ADODB.Recordset")
cnx1.Open strActiveConnection 'atribuindo a conexão
rst1.Open strSQL, cnx1 'Abrindo o recordset
Set ExecuteSQL = rst1

Do While Not rst1.EOF
'MyItem.CbCCusto.AddItem rst1("CCUSTO") --> o erro acontece aqui

pela falta do objeto
rst1.MoveNext
Loop
rst1.Close
Set rst1 = Nothing