como inserir os nomes dos campos de uma tabela, em combobox. grato tay

tay, em ADO o código fica assim:

 

   Dim adoRecordset As ADODB.Recordset
   Dim intContador As Integer
   
   glbPesquisa = "SELECT * FROM Man_Conhecimento"
  
   Set adoRecordset = New ADODB.Recordset
   adoRecordset.ActiveConnection = glbConexao
   adoRecordset.CursorLocation = adUseClient
   adoRecordset.Open glbPesquisa, , adOpenKeyset, adLockOptimistic

   For intContador = 0 To adoRecordset.Fields.Count - 1
      cmbCampos.AddItem adoRecordset(intContador).Name
   Next
   adoRecordset.Close

Te +