vb+SQL数据库中插入时间类数据出现的问题...在线等待

Question

Const DBPATH = "./RealTime.mdb"
Const ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPATH & ";Jet OLEDB:Database Password=123456"
Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Record
conn.ConnectionString = "driver={sql server};server=(local);uid=sa;pwd=xu050615;database=JCRW"
conn.OpenDim cn As New ADODB.Connection
cn.Open ConnString
Dim datevar As Date
datevar = Now
 sql = " INSERT INTO now"
            sql = sql & " (station , f , t , p ,tot,theindex,good)"
            sql = sql & " VALUES ( "
            sql = sql & " " & 1 & ", "
            
            sql = sql & " " & 0 & ", "
            
            sql = sql & " " & 2 & ", "
            
            sql = sql & " " & 3 & ", "
            
            sql = sql & " " & 10 & ", "
            
            sql = sql & " #" & datevar & "#, "
            
            sql = sql & " " & 1 & " )"
            conn.Execute sql
            cn.Execute sql
            Label1.Caption = Now
            
            
End Sub
在ACCESS中插入数据没有问题,在SQL中插入数据就报错.请问这是什么原因啊 ?在线等.解决就结贴..谢谢!!!

Answer 1

数据库为SQL：
sql=" insert into 表名(日期型字段名) values('"& 日期变量 &"')"
数据库为ACCESS：
sql=" insert into 表名(日期型字段名) values(#"& 日期变量 &"#)"

Answer 2

日期值在SQL Server里保存时，用单引号不能用#号