Update
Public Class
frmAdd
Inherits
System.Windows.Forms.Form
Private
currMang As CurrencyManager
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnNext.Click
currMang.Position += 1
End Sub
Private Sub frmUpdate_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
daStudent.Fill(DsStudent1)
currMang = Me.BindingContext(DsStudent1,
"tablestu")
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnFirst.Click
currMang.Position = 0
End Sub
Private Sub btnPrevious_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
btnPrevious.Click
currMang.Position -=
1
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnLast.Click
currMang.Position = currMang.Count - 1
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnAdd.Click
Dim newRecord As dsStudent.tablestuRow
newRecord = DsStudent1.tablestu.NewRow
newRecord.idno = InputBox("Enter idno", "New
Record")
newRecord.name = InputBox("Enter name", "New
Record")
newRecord.major = InputBox("Enter major",
"New Record")
newRecord.city = InputBox("Enter city", "New
Record")
newRecord.state = InputBox("Enter state",
"New Record")
newRecord.gpa = CSng(InputBox("Enter
GPA", "New Record"))
newRecord.yrentered = InputBox("Enter Year
Entered", "New Record")
newRecord.credits = CInt(InputBox("Enter
credits", "New Record"))
DsStudent1.tablestu.Rows.Add(newRecord)
End Sub
Private Sub btnAddDatabase_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnAddDatabase.Click
daStudent.Update(DsStudent1)
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnEnd.Click
Me.Close()
End Sub
End Class
Adddelete project
Public Class
frmUpdate
Inherits
System.Windows.Forms.Form
Private
currMang As CurrencyManager
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnLast.Click
currMang.Position = currMang.Count - 1
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnNext.Click
currMang.Position += 1
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnFirst.Click
currMang.Position = 0
End Sub
Private Sub btnPrevious_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
btnPrevious.Click
currMang.Position -= 1
End Sub
Private Sub frmUpdate_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
daStudent.Fill(DsStudent1)
currMang = Me.BindingContext(DsStudent1,
"tablestu")
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnAdd.Click
Dim newRecord As DsStudent.tablestuRow
newRecord = DsStudent1.tablestu.NewRow
newRecord.idno = InputBox("Enter idno", "New
Record")
newRecord.name = InputBox("Enter name", "New
Record")
newRecord.major = InputBox("Enter major",
"New Record")
newRecord.city = InputBox("Enter city", "New
Record")
newRecord.state = InputBox("Enter state",
"New Record")
newRecord.gpa = CSng(InputBox("Enter
GPA", "New Record"))
newRecord.yrentered = InputBox("Enter Year
Entered", "New Record")
newRecord.credits = CInt(InputBox("Enter
credits", "New Record"))
DsStudent1.tablestu.Rows.Add(newRecord)
End Sub
Private Sub btnChangeDatabase_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
btnChangeDatabase.Click
daStudent.Update(DsStudent1)
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnEnd.Click
Me.Close()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnDelete.Click
currMang.RemoveAt(currMang.Position)
End Sub
End Class