I followed you example,but it doesnt work in my code.

Code:
Do Until reIndex.EOF
strIme = rsIndex("Ime") & "#" & rsIndex("Prezime")
Combo1.AddItem = strIme
rsIndex.MoveNext
Loop

   MyArray = Split(strIme, "#")
   Trim (MyArray(0))
   Trim (MyArray(1))
   
   end sub

That part is under FormLoad.I open a connection with the DB before that,and select fields,as shown in my post num.1.

So the error is ARGUMENT NOT OPTIONAL
And .AddItem is highlited