Cargar campos de una tabla en un combo

Tengo el siguiente codigo, quiero que los nombres de los campos aparezcan en el combo para manejar mejor mis filtros en vb 6.0
Private Sub Form_Load()      
    ' ConnectionString
    Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=server"
    With Adodc1
        .CommandType = adCmdText
        .RecordSource = "Select * From oficina"
        .Refresh
        Set DataGrid1.DataSource = Adodc1.Recordset                
        .Visible = False
    End With
    With Combo1
        Combo1.Text = "Oficina"
    End With
    Text1 = ""