ADOX Append Tabel

Hejsa, jeg er ved at lave et database mondul. Men er stødt ind i en opgave med at oprette en tabel i en database ;

Koden er ;
dim DB_ID, Tabel_navn, action
DB_ID = Request(\"DB_ID\")
Tabel_navn = Request(\"Tabel_navn\")
action = Request(\"action\")

if (action = \"opret_tabel\") then
Dim cnn
Set cnn = Server.CreateObject(\"ADODB.Connection\")
Dim cat
Set cat = Server.CreateObject(\"ADOX.Catalog\")
\'select case Tabel_navn
\'case \"\" Response.redirect(\"fejl.asp?fejlID=5\")
\'case else
dim sti
select case DBType(DB_ID)
case \"Access\"
sti =\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\"& Server.MapPath(\"\"& DBPlac(DB_ID) &\"\")&\";\"
cnn.Open sti
case \"DSN\" cnn.Open DBPlac(DB_ID)
end select

Set cat.ActiveConnection = cnn

cat.Tables.Append Tabel_navn
       
\'  cnn.Close
\'  Set cnn = NOTHING
\'  end select
end if


Fejlen er ;

ADOX.Tables error \'800a0bb9\'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/admin/Opret_Tabel.asp, line 33


Mit spg er om jeg har en syntaks fejl, eller om jeg har misforstået noget om ADOX. Min plan er at oprette columns sennere og ikke med det samme databasen bliver oprettet.


Håber det er beskrivelse nok.