Option Explicit
'Esto forma parte de una rutina enviada por Jose Mª Fueyo, cuyo ejemplo MDB
'meteré en la Web esta noche 
'Diciembre de 2002


'Es una MDB que tiene una tabla denominada tbPrueba
'con un campo Autonumerico llamado ID

'Necesita referencias a:
'          Microsoft ADO 2.5
'          Microsoft ADO Ext. 2.5 for DDL and Security

Dim cnx As ADODB.Connection, cat As ADOX.Catalog
Dim tbl As ADOX.Table, fld As ADOX.Column, prop As ADOX.Property
Function DameAuto()
    'Conecto a la base de datos local
    Set cnx = CurrentProject.Connection
    'Referencia al catálogo de objetos
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = cnx
    'Referencia a la tabla
    Set tbl = cat.Tables("tbPRUEBA")
    'Y referencia a la columna
    Set fld = tbl.Columns("ID")
    'Y recorro la colección de propiedades
    For Each prop In fld.Properties
    ' propiedad seed
     If UCase(prop.Name) = UCase("seed") Then
      MsgBox "El proximo autonumerico de la tabla es: " & prop.Value
     End If
    Next
    Set prop = Nothing
    Set fld = Nothing
    Set tbl = Nothing
    Set cat = Nothing
    cnx.Close
    Set cnx = Nothing
End Function



Es curioso, o como queraís llamarlo, que con DAO no se muestra dicha propiedad
Yo lo intenté con el siguiente codigo...pero no me salía el 'proximo autonumerico'

For Each fldSrc In rstSrc.Fields
 MsgBox fldSrc.Name
 Dim prpProp As Property
 For Each prpProp In fldSrc.Properties
   MsgBox prpProp.Name
   MsgBox prpProp.Value
   On Error Resume Next
  Next
 Next

así lo intenté, pero nada.

Muchas gracias, Chema...yo tambien andaba buscando este tema desde hace tiempo.

El Búho