数据库表单提交编程，谁给个例子。

嘻~~~!我书里面的例子.你看看吧~~~!
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
  Sub Page_Load(sender As Object, e As Eventargs)
    '使用 Connection 对象打开数据连接
    Dim objConn As New OleDbConnection()
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath("Grades.mdb")
    objConn.Open()    '创建 DataAdapter 对象
    Dim objCmd As New OleDbDataAdapter()    '指定SelectCommand属性
    objCmd.SelectCommand = New OleDbCommand("Select * From 成绩单", objConn)
    
    '指定UpdateCommand属性及其参数
    objCmd.UpdateCommand = New OleDbCommand()
    objCmd.UpdateCommand.CommandText = "Update 成绩单 Set 学号=?, " & _
                                       "姓名=?, 会计=?, 统计=? Where 学号=?"
    objCmd.UpdateCommand.Connection = objConn
    objCmd.UpdateCommand.Parameters.Add("@学号", OleDbType.VarChar, 8, "学号")
    objCmd.UpdateCommand.Parameters.Add("@姓名", OleDbType.VarChar, 4, "姓名")
    objCmd.UpdateCommand.Parameters.Add("@会计", DbType.Byte, Nothing, "会计")
    objCmd.UpdateCommand.Parameters.Add("@统计", DbType.Byte, Nothing, "统计")
    objCmd.UpdateCommand.Parameters.Add("@旧学号", OleDbType.VarChar, 8, "学号")
    objCmd.UpdateCommand.Parameters("@旧学号").SourceVersion = DataRowVersion.Original    '指定 DeleteCommand 属性及其参数
    objCmd.DeleteCommand = New OleDbCommand()
    objCmd.DeleteCommand.CommandText = "Delete From 成绩单 Where 学号=?"
    objCmd.DeleteCommand.Connection = objConn
    objCmd.DeleteCommand.Parameters.Add("@旧学号", OleDbType.VarChar, 8, "学号")
    objCmd.DeleteCommand.Parameters("@旧学号").SourceVersion = DataRowVersion.Original    '指定 InsertCommand 属性及其参数
    objCmd.InsertCommand = New OleDbCommand()
    objCmd.InsertCommand.CommandText = "Insert Into 成绩单 (学号, 姓名, " & _
                                       "会计, 统计) Values (?, ?, ?, ?)"
    objCmd.InsertCommand.Connection = objConn
    objCmd.InsertCommand.Parameters.Add("@学号", OleDbType.VarChar, 8, "学号")
    objCmd.InsertCommand.Parameters.Add("@姓名", OleDbType.VarChar, 4, "姓名")
    objCmd.InsertCommand.Parameters.Add("@会计", DbType.Byte, Nothing, "会计")
    objCmd.InsertCommand.Parameters.Add("@统计", DbType.Byte, Nothing, "统计")    '创建 DataSet 对象，并将 SelectCommand 的执行结果置入 DataSet 对象中
    Dim DS As New DataSet()
    objCmd.Fill(DS, "成绩单")
    objConn.Close()    '创建 myTable 为 DataTable 对象，且将 DataSet 对象的成绩单数据表指定给 myTable
    Dim myTable As DataTable = DS.Tables("成绩单")    '修改数据行
    myTable.Rows(6)("统计") = 80    '删除数据行
    myTable.Rows(4).Delete()    '新建数据行
    Dim myRow As DataRow = myTable.NewRow()
    myRow("学号") = "A8608011"
    myRow("姓名") = "小丸子"
    myRow("会计") = 95
    myRow("统计") = 70
    myTable.Rows.Add(myRow)    '将 DataSet 对象的数据更新源数据
    objCmd.Update(myTable.Select(Nothing, Nothing, DataViewRowState.ModifiedCurrent))
    objCmd.Update(myTable.Select(Nothing, Nothing, DataViewRowState.Deleted))
    objCmd.Update(myTable.Select(Nothing, Nothing, DataViewRowState.Added))
  End Sub
</Script>