VB Code:
  1. set dccombo1.rowsource = rsCompany