help. filling combo box by getting info from array

[newbiess]

hi everyone...

i hope that there is someone outthere who can answer this weird question for me. Try this

My goal here is to get users name from my outlook contact folder into my microsoft access form. With that in mind, i have created a function that will retrieved the names from my outlook folder and put those info into an array of string. Next i need to retrieve this information from the array and put it in my combo box, and this only process if i press a certain button.
i have done some research and i found this code.

this is very similar to what i would want...but this will work when you start out your form...means it does not occur on a selected choice.

by the way you would put the name of this function under
row source type of the combo box.

thanx for everyone help in attempt for this question of mine
------------------------------------------
Function ListMondays(fld As Control, id As Variant _
Row As Variant, col As Variant, _
code As Variant) As Variant
Dim intOffset As Integer
Dim varRetVal As Variant
Select Case code
Case acLBInitialize
' Just return True here.
varRetVal = True
Case acLBOpen
' Use the Timer function to generate a unique value.
varRetVal = Timer
Case acLBGetRowCount
' Create space for 4 rows of data.
varRetVal = 4
Case acLBGetColumnCount
' Create a single column of data.
varRetVal = 1
Case acLBGetColumnWidth
' Use the control's default column width.
varRetVal = -1
Case acLBGetValue
' Use the row argument to generate different dates
' for different rows.
intOffset = Abs((9 - Weekday(Now))Mod 7)
varRetVal = Format(Now() + intOffset + 7 _
* row, "mmmm d&quot
Case acLBGetFormat
Case acLBEnd
End Select
ListMondays = varRetVal
End Function