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