> '-------------------------- > ' Create the SelectCommand...for Contacts.Company > '-------------------------- > oledbCMD = New OleDbCommand("SELECT DISTINCT Company " & _ > "FROM Contacts " & _ > "ORDER BY Company", _ > oledbConn) > ' > oledbDA.SelectCommand = oledbCMD > oledbDA.Fill(oledbDS, "CompanyLookup") > ' > cboCompanyLookup.DataSource = oledbDS.Tables("CompanyLookup") > ' > cboCompanyLookup.DataTextField = "Company" > cboCompanyLookup.DataValueField = "Company" > cboCompanyLookup.EnableViewState = True > cboCompanyLookup.DataBind() > cboCompanyLookup.SelectedValue = -1 > '-------------------------- >>