Visual Basic - Campos de una tabla

Hola, necesito agregar los campos de una tabla en el item de un combo. Como lo hago.... ??
openschema ???? pero como ??
Agradezco mucho su ayuda..

puedes realizar un recordset con un ciclo while y agregarselos a el combo a medida que se cambia el registro mira el ejemplo:

set variablerecorset=variablebasedatos.openrecordset("select * from tabla")
if variablerecordset<>0 then
variablerecordset.movefirst
do while not variablerecordset.eof
combo.AddItem variablerecordset!nombrecampobase
variablerecordset.movenext
loop
endif

Dim k as long
with data1.recodset
cboCampos.Clear
if .RecordCount<1 then exit sub
.Movelast
.MoveFirst
For k=1 to .RecordCount
cboCampos.AddItem .Fields("Nombre_Campo").Value
cboCampos.ItemData(cboCampos.NewIndex)= .Field("Campo_Clave_Principal").Value
.MoveNext
Next k
cboCampos.ListIndex=0
end with

Para recuperarel valor de la clave principal es:
if cboCampo.ListIndex>=0 then msgbox cboCampo.ItemData(cboCampo.ListIndex)

Saludos Ruri