Visual Basic - combobox

hola como puedo meter en un combo la lista de campos de una tabla de una base de datos
muchas gracias

Dim Tabla as Recordset

Do while Tabla.EOF

Combo.AddItem Tabla!Campo

Tabla.Movenext

Loop

Esto seria lo mas basico, pero no se como te conectas a la base ni nada.
Investiga no es dificil

no entiendo como aplicar pero yo e encontrado una solucion chapu mientras no sale otra

For A = 0 To 50
Combo1.AddItem Data1.Recordset.Fields(A).Name
Next

'así el combo adquiere el nombre de todas las columnas de una tabla y aunque genera un error porque le digo que busque hasta 50veces lo soluciono con (On Error Resume Next)
hay otra solucion mas corta?