我在Global中写了如下：
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在新会话启动时运行的代码
Dim DOU As New DataOnlineUsers()
DOU.LogIn(Session.SessionID)
End Sub
在类里面：
'用户访问BBS添加用户访问 BBS的记录
Public Sub LogIn(ByVal strSessionId As String)
Dim conn As New OleDbConnection(_strConn)
Dim strSql As String
strSql = "insert into onlineusers(sessionId,UserID,LogInTime,IsOnLine) values('" & strSessionId & "','过客',#" & Now() & "#,true"
Dim cmd As New OleDbCommand(strSql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
——————————————————————————————
也就是说，我在Global中传入一个值session.sessionid给dataonlineuser.userlogin.就出现下面的错误了，
我把SQL放到ACCESS试验，是没有错的，搞不懂，请指点！谢谢
INSERT INTO 语句的语法错误。
行 339: Dim cmd As New OleDbCommand(strSql, conn)
行 340: conn.Open()
行 341: cmd.ExecuteNonQuery()
行 342: conn.Close()
行 343: End Sub

[此贴子已经被作者于2007-6-12 16:59:12编辑过]

多谢了!

1,我用的是access,所以我的所有sql语句都加了sql;
2,sessionid和userid都是字符型
3，这个我试过了，还是出现同样的错误
谢谢了，我再看看

确实有误：上面的true后面少了个")",
唉～～～～～～～～～～～～～～～～～～～～～～～～～～～