为什么 insert into access 无效
<!-- #include file = "conn.asp "-->
<%
function opendb(DBPath,sessionname,dbsort)

dim conn
Set conn=Server.CreateObject( "ADODB.Connection ")
DBPath1=server.mappath( "db/union.mdb ")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq= " & DBPath1
set session(sessionname)=conn
set opendb=session(sessionname)
end function

%>

<%
'Unionid,UrlName,UrlAddress,UrlContent,ZUserName,ZPhoto,ZResume,ZConnect,ZTofriens,ZSubmitTime
'ZChecked 审核0无1过, ZUpdate 站长资料 修改0无1过, ZShowed 是否显示0无1过

Dim UrlName,UrlAddress
Dim UrlContent,ZUserName,ZPhoto
Dim ZResume,ZConnect,ZTofriends

UrlName = Request.Form( "Name ")
UrlAddress = Request.Form( "Address ")
UrlContent = Request.Form( "Cotent ")
ZUserName = Request.Form( "UserName ")
ZPhoto = Request.Form( "Photo ")
ZResume = Request.Form( "Resume ")
ZConnect = Request.Form( "Connect ")
ZTofriends = Request.Form( "Tofriends ")
SubTime = Date()

set conn=opendb( "db ", "conn ", "accessdsn ")
sql = "insert into [Union] (UrlName,UrlAddress,UrlContent,ZUserName,ZPhoto,ZResume,ZConnect,ZTofriends,ZSubmitTime,ZChecked,ZUpdate,ZShowed) "
sql = sql & "values ( ' "& UrlName & " ', ' "& UrlAddress & " ', ' "& UrlContent & " ', ' "& ZUserName & " ', ' "& ZPhoto & " ', ' "& ZConnect & " ', ' "& ZTofriends & " ',# "& SubTime & "#,0,0,0) "

'response.Write(sql)

conn.execute(sql)
conn.close


%>

为什么不执行？数据写不到数据库

[解决办法]
sql = sql & "values ( ' "& UrlName & " ', ' "& UrlAddress & " ', ' "& UrlContent & " ', ' "& ZUserName & " ', ' "& ZPhoto & " ', ' "& ZConnect & " ', ' "& ZTofriends & " ',# "& SubTime & "#,0,0,0) "
↓空格↓没有空格
sql = sql & " values( ' "& UrlName & " ', ' "& UrlAddress & " ', ' "& UrlContent & " ', ' "& ZUserName & " ', ' "& ZPhoto & " ', ' "& ZConnect & " ', ' "& ZTofriends & " ',# "& SubTime & "#,0,0,0) "