Utiliza esto
Dim rstBucle As Recordset
Dim fldBucle As Field
For Each rstBucle In DbEmpleado.Recordsets
Debug.Print "Campos de la Tabla: ", rstBucle.Name
For Each fldBucle In DbEmpleado.TableDefs(rstBucle.Name).Fields
Debug.Print fldBucle.Name
Next fldBucle
Next
Espero que te sirva
