Not to steal your thunder Ken, but might this be the sort of thing you are looking for? Supply the table name and name of your index field, it returns the next number.
Function GetTableIndex(GetTable As String, GetField As String) As Integer
'DATE: 04-17-08
'PURPOSE: get index number for a new...