Microsoft JET Database Engine (0x80040E10)

Question

错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/bbs/Announce/Announce.asp, 第 849 行
Dim FirstID_2,LastID_2
Dim GetData_2

SQL = "Select top " & SQL & " T1.ID,T1.ParentID,T1.TopicSortID,T1.BoardID,T1.RootID,T1.ChildNum,T1.Layer,T1.Title,T1.PrintContent,T1.FaceIcon,T1.ndatetime,T1.LastTime,T1.Hits,T1.Length,T1.UserName,T1.UserID,T1.HTMLFlag,T1.UnderWriteFlag,T1.NotReplay,T1.IPAddress,T2.Mail,T2.OICQ,T2.Userphoto,T2.UserLevel,T2.Homepage,T2.PrintUnderwrite,T2.Points,T2.Officer,T2.OnlineTime,T2.Birthday,T2.ApplyTime,T2.Sex,T2.LastDoingTime,T2.AnnounceNum2,T2.FaceUrl,T2.FaceWidth,T2.FaceHeight,T2.UserLimit,T1.TopicType,T1.NeedValue,T1.OtherInfo,T2.NongLiBirth,T2.ShowFlag,T2.NotSecret,T2.UserTitle,T1.TitleStyle,T1.PollNum,T2.CachetValue,T2.CharmPoint,T2.UserGroup,T2.CharmPoint as mypet from LeadBBS_Announce as T1 left join LeadBBS_User as T2 on T2.Id=T1.Userid " & SQLEndString
Set Rs = Con.ExeCute(SQL)(就这行有问题，郁闷）
GBL_DBNum = GBL_DBNum + 1
If (LMT_First = 0 and LastNum = 0 and Page >= 1 and NoPage = 0) or JMPage > 0 Then
If Not Rs.Eof Then
If JMPage > 0 Then
If Upflag="0" Then
Rs.Move (JMPage-1)* DEF_TopicContentMaxListNum
Else
If Page < MaxPage Then
Rs.Move (JMPage-2) * DEF_TopicContentMaxListNum + DEF_TopicContentMaxListNum
End If
End If

Answer 1

出错提示：
操作必须使用一个可更新的查询。

win2k win2003 系统
问题应该是服务器数据库目录的写入权限没有设置好。
数据库目录 属性 安全 EVERYONE ……给他写入权限就OK了。

winXP系统
XP操作系统安装好，文件夹选项里面默认使用简单共享(推荐)，把这个选项去掉，
再在文件夹上右键点击，就会出现安全这个选项卡，
原来默认的没有，然后在安全选项卡里面可以设置用户的写入权限了
右击数据库>安全>everyone>将需要的勾上