SQL - Text Box

[SAMS]

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.

[Clunietp]

Instead of

dbs.Execute "SELECT claim.* INTO " & " [Text1.text] FROM claim;"

Shouldn't it be "Select Claim.* INTO " & text1.text & " FROM claim;" ?

that worked for me

HTH

Tom