Okay- disregard that last question. I figured it out:

Do Until rs.EOF
With UserForm1.cboAccount
.AddItem rs!acct_name
.List(.ListCount - 1, 1) = rs!acct_id
End With
rs.MoveNext
Loop

Thanks

--
Message posted from http://www.ExcelForum.com