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

我来试试看

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