Mystisk Variable

Dim con,com,rec,query

Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")
Set rec = CreateObject("ADODB.Recordset")

con.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=login;USER=backup;PASSWORD=123456;OPTION=3;"
com.ActiveConnection = con

query = "CREATE TABLE " & date & " select * from carddata"
Msgbox query
com.CommandText = query

rec.Open Com

Rec.Close
Con.Close

Set Con = nothing
Set Com = nothing
Set Rec = nothing


// msgbox giver mig det rigtig svar.. altsa "create table 05-10-2004 select * from carddata"
// men jeg får en error hvor den siger at min syntax til sql er forkert og min query kun var "05-10-2004 select * from carddata"
// hva er der galt hvorfor virker variablen ikke altid som den skal