请大家帮我看看这个错误。。

[yrkiss]

编译器错误信息: BC30205: 需要语句结束。

源错误:



行 9： connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("web.mdb")
行 10： Dim conn as New OleDbConnection(connstr)
行 11： Dim strSQL as string = "insert into gametype (类别) values ('"&tb.text&"')"
行 12： Dim objCmd As new OleDbCommand()
行 13： objCmd.Connection = conn

[panyee]

这几句还真看不出哪有错, 可能在别的地方吧,比如哪少了end if

[batisituta]

有没有执行这个command.

[yrkiss]

就这点代码。。。可就不成，郁闷
<script runat="server" language="vb">
Sub Page_Load(Source As Object, E As EventArgs)
End sub
Sub addtype (Source As Object, E As EventArgs)
Dim connstr As string
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("web.mdb")
Dim conn as New OleDbConnection(connstr)
Dim strSQL as string = "insert into gametype (类别) values ('"&tb.text&"')"
Dim objCmd As new OleDbCommand()
objCmd.Connection = conn
objCmd.CommandText = strSQl
conn.open()
objCmd.ExecuteNonQuery()
conn.Close()
Response.Redirect("ssign_index.aspx")
End sub

</script>

[yrkiss]

这个搞定了。。谢谢

[myadaidarling]

好久不写了，，给几个建议也不知对不对，，说错了见谅...

1. Microsoft.Jet.OLEDB.4.1
2.检查web.mdb路径是否同此文件在同一文件夹下
3.好像open方法也可以带参数吧，把connstr放到open中呢？？
4.检查一下Sql语句，是否和数据库中gametype表对应呢？
values ('"&tb.text&"') 这么写行么？？