Que plataforma estás usando para interactuar con la base de datos?
ADODB.CONNECTIONS, DAO, DATACONTROLS..
Si el caso es adodb.connection al hacer el query puedes
usar el objeto adodb.recordset
dim dummyRST as adodb.recordset
sql="tu query"
set dummyRST= myConn.execute(sql)
comboNames.clear
for i=0 to dummy.fields.count-1
comboNames.additem dummy.fields(i).name
next i
'De esta forma puedes incorporar las columnas de la tabla que deseas consultar
Espero haber entendido bien tu problema y ojalá te sirva