myConn.ConnectionString = ConnectionString

myConn.Open()

Dim StrAdd As String = ″insert into student (Stuid,StuName,StuSex,StuBorn,StuCore) values('″ + txtStuID.Text + ″','″ + txtStuName.Text + ″','″ + txtStuSex.Text + ″','″ + txtStuBorn.Text + ″','″ + txtStuCore.Text + ″')″ Debug.Write(StrAdd)

Dim myCommand As OleDbCommand = New OleDbCommand(StrAdd, myConn)

myCommand.ExecuteNonQuery()

myConn.Close()

myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).BeginEdit()

myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).EndEdit()

myDataSet.Tables(″student″).AcceptChanges()

MsgBox(″数据增加完成！″)

End Sub

有了前面几种基本操作方法的代码分析后，这段代码相信不难理解。大家需要关注的还是SQL语句是如何实现数据记录增加的。这种方法具有一定的通行性。 完成上述设计后我们来看看整个程序的运行结果。按下F5键运行程序即可。 本文中所有代码均在Windows XP+环境下调试通过。