Created an mdb with:
Set dbsCamp = CreateDatabase(DBdir & "\Camp.mdb", _
dbLangGeneral)
Set tdfCampMstr = dbsCamp.CreateTableDef("CampMstr")
' Create and append new Field objects for the new
' TableDef object.
With tdfCampMstr
.Fields.Append .CreateField("camp_id", dbInteger)
.Fields.Append .CreateField("camp_nm", dbText)
End With
dbsCamp.TableDefs.Append tdfCampMstr

---> The create works and I am able to list
the table "CampMstr"

However when I try to open the table I get
an ERR=13, type mismatch ??

Here is my open:
Set dbsCamp = OpenDatabase(DBdir & "\Camp.mdb")
Set rstCampMstr = dbsCamp.OpenRecordset("CampMstr", dbOpenDynaset)

-----> Any clues about what is going on?

Ray