I asked this question a long time ago and I didn't understand what people told me. How do you delete a table. The code I am using to creat a table is.
Code:
Dim rcdTable As Recordset, dbsData As Database, tdfTable As TableDef

Set dbsData = DBEngine.Workspaces(0).OpenDatabase(path & "\mydb.mdb", False, False, ";pwd=password")

Set tdfTable = dbsData.CreateTableDef(Text1.Text)

With tdfTable
.Fields.Append .CreateField("amount", dbCurrency)
End With

dbsData.TableDefs.Append tdfTable

rcdTable.Close
dbsData.Close

Thank you so very much!!!!