Sub AddRecord(sender As Object, e As EventArgs)
    Dim objConn As New OleDbConnection()
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ssyyrr1.mdb")
    objConn.Open()
    Dim strSQL As String
    strSQL = "Insert Into 访客留言簿(留言者, 电子邮件, IP, 留言内容, 留言日期) Values ('" & UserName.Text & "', '" & Email.Text & "', '" & Request.UserHostAddress & "', '" & Content.Text & "', '" & System.DateTime.Now & "')"
    Dim objCmd As New OleDbCommand(strSQL, objConn)
    objCmd.ExecuteNonQuery()
    objConn.Close()
    Response.Redirect("Prac10-01-1.aspx")
  End Sub

把中文改成英文试试

先试中文问题
再看数据库路径多吗，再看数据库是否给了写权限
Microsoft.Jet.OLEDB.4.0 再查电脑中没有Jet.OLEDB服务

我来试试看

如何查电脑中有没有Jet.OLEDB服务啊？麻烦指点一下吧，另外我的另外一个程序在sql server 2000中也遇到了同样的问题，update,insert,delete语句同样执行不了，而select语句可以执行，是否sql server 2000有问题啊？

应该是开始-->程序-->管理工具-->数据源；
至于第二个问题嘛，你看看你的权限问题，可能是你给了select的权限而没有update,insert,delete的权限。给用户设置上权限应该就好了……