records.movelast
intRecCount = records.RecordCount
records.movefirst
For intCounter = 1 To intRecCount
combo1.AddItem records![Full Name]
records.movenext
Next intCounter