INSERT INTO stumper...

[DeadHeat]

Can someone please tell me what is wrong with my code below? If I use "User" as the table name my code does NOT work, but if I name it something else it works just fine!

strFirstName = InputBox("First name?")
strLastName = InputBox("Last name?")
strUserName = InputBox("Username?")
strPassword = InputBox("Password?")
strDept = InputBox("Dept?")
strProgram = InputBox("Program?")

strSourceFile = "C:\User.mdb"

Set objADO = CreateObject("ADODB.Connection")
objADO.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strSourceFile)
strSQL = "INSERT INTO User (User First Name], [User Last Name], [User Login Name], [User Password], [User Department], [User Program]) " & _
"VALUES ('"& strFirstName &"', '"& strLastName &"', '"& strUsername &"', '"& strPassword &"', '"& strDept &"', '"& strProgram &"');"
objADO.Execute(strSQL)
objADO.Close

 

[tsuji]

>"INSERT INTO User (User First Name],
[tt]"INSERT INTO User ([red][[/red]User First Name], [/tt]

 

[DeadHeat]

Unfortunately even after I corrected this, it still does not work! Please help.

 

[vecjjk]

I believe that "user" is a reserved word in SQL.

 

[jasonp45]

You have to put [User] in brackets as well:

Insert Into [User] ([User First Name],...

As mentioned, 'User' is a reserved word for Access SQL.