NOTE: I also have this question posted in another section of this newsgroup
but no answers yet. I am desperate.

I was trying to load an excel spreadsheet into Access and then set the
properties of some fields on that table.

Below is the code I was trying to use. Looks like I am having problems
with codes that don't work with Access 2000 i.e. DAO and ADO issues. I have
tried to block off the old codes that weren't working.

The code is hanging up at this point

fld1.Properties("Required") = True

Can somebody look at this code below or basically give me a code that will
work.
Thanks.

Pele

Sub FixTeam_table()
Const conTable = "1GBBU Teams"
Const confield = "Year"
Const confield2 = "Dept"
Const confield3 = "Team Name"
Const confield4 = "Team Type for CIP"
Const confield5 = "Team Multiplier Type"

Dim tdf As New ADODB.Recordset

Dim fld As Field
Dim fld2 As Field
Dim fld3 As Field
Dim fld4 As Field
Dim fld5 As Field

'Dim fld As DAO.Field
'Dim fld2 As DAO.Field
'Dim fld3 As DAO.Field
'Dim fld4 As DAO.Field
'Dim fld5 As DAO.Field
'Dim dbs As dao.Database

Dim dbs As ADODB.Connection

'Set dbs = DBEngine(0)(0)

Set dbs = CurrentProject.Connection

'Set tdf = dbs.Recordset(conTable)

tdf.Open conTable, dbs, adOpenKeyset, adLockOptimistic, adCmdTableDirect

'Set tdf = DBEngine(0)(0).TableDefs("1GBBU TEAMS")
'Set tdf = DBEngine(0)(0).TableDefs(conTable)

Set fld = tdf.Fields(confield)
Set fld2 = tdf.Fields(confield2)
Set fld3 = tdf.Fields(confield3)
Set fld4 = tdf.Fields(confield4)
Set fld5 = tdf.Fields(confield5)

fld1.Properties("Required") = True
fld2.Properties("Required") = True
fld3.Properties("Required") = True
fld4.Properties("Required") = True
fld5.Properties("Required") = True
dbs.Execute "CREATE UNIQUE INDEX idxTeamNameID ON [1GBBU Teams]([Team Name])"
End Sub