Run-time error 3125 when "appending a table" (Access)

[Techno1X]

I get this error "Run time error 3125" when trying to append a table: it says I used an invalid name.

However, I followed the rules properly, so see this snippet:

CODE:
"Dim dbOne as Database
Dim tblOne As New DAO.TableDef
strName = "temp_Name"
Set tblOne = dbOne.CreateTableDef(strName)
(5) dbOne.TableDefs.Append tblOne"

I get an error at line 5; any help? Thanks

 

[Remou]

You have not set the database to anything and you do not have any fields.