I made a few modifications and this works. The only thing I wish I could do is sort the list in alpha order but I guess I have to stick to my key sequence.

THISFORM.CodeFrame.SponsorPage.SponCatCbo.RowSource=""
THISFORM.ExeSQL("SELECT cSpCatName FROM SponCategory","Q_SponCat",1)
THISFORM.CodeFrame.SponsorPage.SponCatCbo.RowSource="Q_SponCat"
THISFORM.CodeFrame.SponsorPage.SponCatCbo.Refresh

/Chris