How can I delete table in Access Database?

I try with this:

Dim dbsNew As Database
Dim wrkDefault As Workspace
Dim td As TableDef
Set dbsNew = OpenConnection("c:\Windows\Temp\MarteleurVirtuel.mdb")

Set wrkDefault = DBEngine.Workspaces(0)
td.Name = "Position ha"
dbsNew.TableDefs.Delete td

But it was not a success. I recive an error at the last line: ("Type mismatch")


Has anyone can help me?
Thanks!

Redg