Hi, i used a text box to label the name of a new table but was unable to continue . Is there another way?

Dim dbs As Database
Dim qdf As QueryDef
Set dbs = OpenDatabase("c:\p1\data.mdb")
dbs.Execute "SELECT claim.* INTO " & " [Text1.text] FROM claim;"
MsgBox "Update Done", vbOKOnly, "Typhoid For Newcastle Condition"
dbs.Close

2) And How do i created a new table with a dialog box to let user key in ?? Pls show me with some code. Thks.