Как связать поле со списком (раскрывающийся список) и SQL (значения базы данных)?

Question

 Dim myHWSETConn,myHWSETCommand,HWSETRS
 HWsetSelection = val(HWsetSelection)
 Const DB_CONNECT_STRING1 = "Provider=SQLOLEDB.1;Data Source=FWATRGSQLVCL2;Initial Catalog=Cal1;user id ='Caluser';password='caluser'"
  Set myHWSETConn = CreateObject("ADODB.Connection")
 Set myHWSETCommand = CreateObject("ADODB.Command" )
myHWSETConn.Open DB_CONNECT_STRING1
 Set myHWSETCommand.ActiveConnection = myHWSETConn
myHWSETCommand.CommandText = "SELECT [hw_fullname] FROM [Cal].[dbo].[Req_Simple] where Fwid= "&HWsetSelection&" "
Set HWSETRS = myHWSETCommand.Execute

У меня есть этот код, который извлекает значения из SQL, но у меня возникают проблемы с переводом их в раскрывающийся список, я попытался

 call NewHwset.Items.Add(HWSETRS)

, но он говорит, несоответствие типов "NewHwset.Items.Add"

Любая помощь высоко ценится, спасибо.