0 Project Student Information System in Vb.net

Project Student Information System in Vb.net

 Coding

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Enabled = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox2.Text = "pankaj" Then

            If TextBox3.Text = "parveen" Then

                Me.Hide()

                Form3.Show()

            End If

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Hide()

        Form2.Show()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If MessageBox.Show("do you really want to exit ?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then

            MsgBox("operation ended by user")

            Exit Sub

        Else

            End

        End If

    End Sub

End Class

 Coding

Public Class Form2

    Dim con As New OleDb.OleDbConnection

    Dim pos As Integer

    Dim ds As New DataSet

    Dim da As OleDb.OleDbDataAdapter

    Dim sql As String

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\t1.mdb"

        con.Open()

        sql = "select * FROM plk"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "s2")

        ' MsgBox("admission entry IS NOW OPEN")

        pos = 0

        TextBox1.Text = ds.Tables("s2").Rows(0).Item(0)

        TextBox2.Text = ds.Tables("s2").Rows(0).Item(1)

        TextBox3.Text = ds.Tables("s2").Rows(0).Item(2)

        TextBox4.Text = ds.Tables("s2").Rows(0).Item(3)

        TextBox5.Text = ds.Tables("s2").Rows(0).Item(4)

        TextBox6.Text = ds.Tables("s2").Rows(0).Item(5)

        TextBox7.Text = ds.Tables("s2").Rows(0).Item(6)

        TextBox8.Text = ds.Tables("s2").Rows(0).Item(7)

        TextBox9.Text = ds.Tables("s2").Rows(0).Item(8)

        con.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        pos = 0

        TextBox1.Text = ds.Tables("s2").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("s2").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("s2").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("s2").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("s2").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("s2").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("s2").Rows(pos).Item(6)

        TextBox8.Text = ds.Tables("s2").Rows(pos).Item(7)

        TextBox9.Text = ds.Tables("s2").Rows(pos).Item(8)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If pos = 0 Then

            MsgBox("you are at first record")

        Else

            pos = pos - 1

            TextBox1.Text = ds.Tables("s2").Rows(pos).Item(0)

            TextBox2.Text = ds.Tables("s2").Rows(pos).Item(1)

            TextBox3.Text = ds.Tables("s2").Rows(pos).Item(2)

            TextBox4.Text = ds.Tables("s2").Rows(pos).Item(3)

            TextBox5.Text = ds.Tables("s2").Rows(pos).Item(4)

            TextBox6.Text = ds.Tables("s2").Rows(pos).Item(5)

            TextBox7.Text = ds.Tables("s2").Rows(pos).Item(6)

            TextBox8.Text = ds.Tables("s2").Rows(pos).Item(7)

            TextBox9.Text = ds.Tables("s2").Rows(pos).Item(8)

        End If

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

       

        If pos >= 0 Then

            Dim cb1 As New OleDb.OleDbCommandBuilder(da)

            Dim dsrow1 As DataRow

            dsrow1 = ds.Tables("s2").NewRow()

            dsrow1.Item(0) = TextBox1.Text

            dsrow1.Item(1) = TextBox2.Text

            dsrow1.Item(2) = TextBox3.Text

            dsrow1.Item(3) = TextBox4.Text

            dsrow1.Item(4) = TextBox5.Text

            dsrow1.Item(5) = TextBox6.Text

            dsrow1.Item(6) = TextBox7.Text

            dsrow1.Item(7) = TextBox8.Text

            dsrow1.Item(8) = TextBox9.Text

            ds.Tables("s2").Rows.Add(dsrow1)

            da.Update(ds, "s2")

            MsgBox("new record added")

        End If

        Button8.Enabled = True

        Button9.Enabled = True

        Button10.Enabled = True

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        TextBox9.Clear()

        Button8.Enabled = False

        Button9.Enabled = True

        Button10.Enabled = False

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If pos = ds.Tables("s2").Rows.Count - 1 Then

            MsgBox("you are at last record")

        Else

            pos = pos + 1

            TextBox1.Text = ds.Tables("s2").Rows(pos).Item(0)

            TextBox2.Text = ds.Tables("s2").Rows(pos).Item(1)

            TextBox3.Text = ds.Tables("s2").Rows(pos).Item(2)

            TextBox4.Text = ds.Tables("s2").Rows(pos).Item(3)

            TextBox5.Text = ds.Tables("s2").Rows(pos).Item(4)

            TextBox6.Text = ds.Tables("s2").Rows(pos).Item(5)

            TextBox7.Text = ds.Tables("s2").Rows(pos).Item(6)

            TextBox8.Text = ds.Tables("s2").Rows(pos).Item(7)

            TextBox9.Text = ds.Tables("s2").Rows(pos).Item(8)

        End If

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Me.Hide()

        Form4.Show()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        pos = 0

        TextBox1.Text = ds.Tables("s2").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("s2").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("s2").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("s2").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("s2").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("s2").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("s2").Rows(pos).Item(6)

        TextBox8.Text = ds.Tables("s2").Rows(pos).Item(7)

        TextBox9.Text = ds.Tables("s2").Rows(pos).Item(8)

        Button8.Enabled = True

        Button10.Enabled = True

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        Form1.Show()

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        If pos >= 0 And pos <= ds.Tables("s2").Rows.Count Then

            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then

                MsgBox("operation cancelled")

                Exit Sub

            Else

                Dim cb As New OleDb.OleDbCommandBuilder(da)

                ds.Tables("s2").Rows(pos).Delete()

                pos = 0

                TextBox1.Text = ds.Tables("s2").Rows(pos).Item(0)

                TextBox2.Text = ds.Tables("s2").Rows(pos).Item(1)

                TextBox3.Text = ds.Tables("s2").Rows(pos).Item(2)

                TextBox4.Text = ds.Tables("s2").Rows(pos).Item(3)

                TextBox5.Text = ds.Tables("s2").Rows(pos).Item(4)

                TextBox6.Text = ds.Tables("s2").Rows(pos).Item(5)

                TextBox7.Text = ds.Tables("s2").Rows(pos).Item(6)

                TextBox8.Text = ds.Tables("s2").Rows(pos).Item(7)

                TextBox9.Text = ds.Tables("s2").Rows(pos).Item(8)

                da.Update(ds, "s2")

            End If

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        pos = ds.Tables("s2").Rows.Count - 1

        TextBox1.Text = ds.Tables("s2").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("s2").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("s2").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("s2").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("s2").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("s2").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("s2").Rows(pos).Item(6)

        TextBox8.Text = ds.Tables("s2").Rows(pos).Item(7)

        TextBox9.Text = ds.Tables("s2").Rows(pos).Item(8)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        ds.Tables("s2").Rows(pos).Item(0) = TextBox1.Text

        ds.Tables("s2").Rows(pos).Item(1) = TextBox2.Text

        ds.Tables("s2").Rows(pos).Item(2) = TextBox3.Text

        ds.Tables("s2").Rows(pos).Item(3) = TextBox4.Text

        ds.Tables("s2").Rows(pos).Item(4) = TextBox5.Text

        ds.Tables("s2").Rows(pos).Item(5) = TextBox6.Text

        ds.Tables("s2").Rows(pos).Item(6) = TextBox7.Text

        ds.Tables("s2").Rows(pos).Item(7) = TextBox8.Text

        ds.Tables("s2").Rows(pos).Item(8) = TextBox9.Text

        con.Open()

        Dim cb As New OleDb.OleDbCommandBuilder(da)

        da.Update(ds, "s2")

        MsgBox("data updated")

        con.Close()

    End Sub

    Dim a As String = ""

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

        If IsNumeric(TextBox7.Text) = True Then

            a = Int(TextBox7.Text)

        Else

            TextBox7.Text = a

        End If

    End Sub

    Dim b As String = ""

    Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged

        If IsNumeric(TextBox9.Text) = True Then

            b = Int(TextBox9.Text)

        Else

            TextBox9.Text = b

        End If

    End Sub

   

End Class

  Coding

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Hide()

        Form5.Show()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        Form4.Show()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Hide()

        Form7.Show()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.Hide()

        Form9.Show()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Me.Hide()

        Form11.Show()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Hide()

        Form13.Show()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Me.Hide()

        Form1.Show()

    End Sub

End Class

 Coding

Public Class Form4

    Dim con As New OleDb.OleDbConnection

    Dim pos As Integer

    Dim ds As New DataSet

    Dim da As OleDb.OleDbDataAdapter

    Dim sql As String

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'T1DataSet2.plk' table. You can move, or remove it, as needed.

        Me.PlkTableAdapter.Fill(Me.T1DataSet2.plk)

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\t1.mdb"

        con.Open()

        sql = "select * FROM plk"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "s2")

        con.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "s2"

       

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        Form2.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ds.Clear()

        DataGridView1.Refresh()

        Me.PlkTableAdapter.Fill(Me.T1DataSet2.plk)

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\t1.mdb"

        con.Open()

        sql = "select * FROM plk where wenroll like '" + TextBox1.Text + "'"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "s2")

        con.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "s2"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ds.Clear()

        DataGridView1.Refresh()

        Me.PlkTableAdapter.Fill(Me.T1DataSet2.plk)

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\t1.mdb"

        con.Open()

        sql = "select * FROM plk where wname like '" + TextBox2.Text + "'"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "s2")

        con.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "s2"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ds.Clear()

        DataGridView1.Refresh()

        Me.PlkTableAdapter.Fill(Me.T1DataSet2.plk)

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\t1.mdb"

        con.Open()

        sql = "select * FROM plk"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "s2")

        con.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "s2"

        

    End Sub

End Class

 Coding

 Public Class Form5
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\f1.mdb"
        con.Open()
        sql = "select * FROM b"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "g")
        ' MsgBox("FEES DETAIL IS NOW OPEN")
        pos = 0
        TextBox1.Text = ds.Tables("g").Rows(0).Item(0)
        TextBox2.Text = ds.Tables("g").Rows(0).Item(1)
        TextBox3.Text = ds.Tables("g").Rows(0).Item(2)
        TextBox4.Text = ds.Tables("g").Rows(0).Item(3)
        TextBox5.Text = ds.Tables("g").Rows(0).Item(4)
        TextBox6.Text = ds.Tables("g").Rows(0).Item(5)
        TextBox7.Text = ds.Tables("g").Rows(0).Item(6)
        TextBox8.Text = ds.Tables("g").Rows(0).Item(7)
        TextBox9.Text = ds.Tables("g").Rows(0).Item(8)
     
        con.Close()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.Hide()
        Form6.Show()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Me.Hide()
        Form1.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pos = 0
        TextBox1.Text = ds.Tables("g").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("g").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("g").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("g").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("g").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("g").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("g").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("g").Rows(pos).Item(7)
        TextBox9.Text = ds.Tables("g").Rows(pos).Item(8)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If pos = 0 Then
            MsgBox("you are at first record")
        Else
            pos = pos - 1
            TextBox1.Text = ds.Tables("g").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("g").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("g").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("g").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("g").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("g").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("g").Rows(pos).Item(6)
            TextBox8.Text = ds.Tables("g").Rows(pos).Item(7)
            TextBox9.Text = ds.Tables("g").Rows(pos).Item(8)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If pos = ds.Tables("g").Rows.Count - 1 Then
            MsgBox("you are at last record")
        Else
            pos = pos + 1
            TextBox1.Text = ds.Tables("g").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("g").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("g").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("g").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("g").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("g").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("g").Rows(pos).Item(6)
            TextBox8.Text = ds.Tables("g").Rows(pos).Item(7)
            TextBox9.Text = ds.Tables("g").Rows(pos).Item(8)
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        pos = ds.Tables("g").Rows.Count - 1
        TextBox1.Text = ds.Tables("g").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("g").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("g").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("g").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("g").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("g").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("g").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("g").Rows(pos).Item(7)
        TextBox9.Text = ds.Tables("g").Rows(pos).Item(8)
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Me.Hide()
        Form3.Show()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        Button7.Enabled = False
        Button8.Enabled = True
        Button9.Enabled = False
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        pos = 0
        TextBox1.Text = ds.Tables("g").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("g").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("g").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("g").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("g").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("g").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("g").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("g").Rows(pos).Item(7)
        TextBox9.Text = ds.Tables("g").Rows(pos).Item(8)
        Button7.Enabled = True
        Button9.Enabled = True
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If pos >= 0 Then
            Dim cb1 As New OleDb.OleDbCommandBuilder(da)
            Dim dsrow As DataRow
            dsrow = ds.Tables("g").NewRow()
            dsrow.Item(0) = TextBox1.Text
            dsrow.Item(1) = TextBox2.Text
            dsrow.Item(2) = TextBox3.Text
            dsrow.Item(3) = TextBox4.Text
            dsrow.Item(4) = TextBox5.Text
            dsrow.Item(5) = TextBox6.Text
            dsrow.Item(6) = TextBox7.Text
            dsrow.Item(7) = TextBox8.Text
            dsrow.Item(8) = TextBox9.Text
            ds.Tables("g").Rows.Add(dsrow)
            da.Update(ds, "g")
            MsgBox("new record added")
        End If
        Button7.Enabled = True
        Button8.Enabled = True
        Button9.Enabled = True
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ds.Tables("g").Rows(pos).Item(0) = TextBox1.Text
        ds.Tables("g").Rows(pos).Item(1) = TextBox2.Text
        ds.Tables("g").Rows(pos).Item(2) = TextBox3.Text
        ds.Tables("g").Rows(pos).Item(3) = TextBox4.Text
        ds.Tables("g").Rows(pos).Item(4) = TextBox5.Text
        ds.Tables("g").Rows(pos).Item(5) = TextBox6.Text
        ds.Tables("g").Rows(pos).Item(6) = TextBox7.Text
        ds.Tables("g").Rows(pos).Item(7) = TextBox8.Text
        ds.Tables("g").Rows(pos).Item(8) = TextBox9.Text
        con.Open()
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "g")
        MsgBox("data updated")
        con.Close()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If pos >= 0 And pos <= ds.Tables("g").Rows.Count Then
            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
                MsgBox("operation cancelled")
                Exit Sub
            Else
                Dim cb As New OleDb.OleDbCommandBuilder(da)
                ds.Tables("g").Rows(pos).Delete()
                pos = 0
                TextBox1.Text = ds.Tables("g").Rows(pos).Item(0)
                TextBox2.Text = ds.Tables("g").Rows(pos).Item(1)
                TextBox3.Text = ds.Tables("g").Rows(pos).Item(2)
                TextBox4.Text = ds.Tables("g").Rows(pos).Item(3)
                TextBox5.Text = ds.Tables("g").Rows(pos).Item(4)
                TextBox6.Text = ds.Tables("g").Rows(pos).Item(5)
                TextBox7.Text = ds.Tables("g").Rows(pos).Item(6)
                TextBox8.Text = ds.Tables("g").Rows(pos).Item(7)
                TextBox9.Text = ds.Tables("g").Rows(pos).Item(8)
                da.Update(ds, "g")
            End If
        End If
    End Sub
End Class

 Coding

Public Class Form6
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'F1DataSet2.b' table. You can move, or remove it, as needed.
        Me.BTableAdapter.Fill(Me.F1DataSet2.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\f1.mdb"
        con.Open()
        sql = "select * FROM b"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "g")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "g"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form5.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.BTableAdapter.Fill(Me.F1DataSet2.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\f1.mdb"
        con.Open()
        sql = "select * FROM b where yenroll like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.BTableAdapter.Fill(Me.F1DataSet2.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\f1.mdb"
        con.Open()
        sql = "select * FROM b where yname like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.BTableAdapter.Fill(Me.F1DataSet2.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\f1.mdb"
        con.Open()
        sql = "select * FROM b"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "g")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "g"
    End Sub
End Class

 Coding

Public Class Form7
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\r1.mdb"
        con.Open()
        sql = "select * FROM c"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "r")
        'MsgBox("RESULT DETAIL IS NOW OPEN")
        pos = 0
        TextBox1.Text = ds.Tables("r").Rows(0).Item(0)
        TextBox2.Text = ds.Tables("r").Rows(0).Item(1)
        TextBox3.Text = ds.Tables("r").Rows(0).Item(2)
        TextBox4.Text = ds.Tables("r").Rows(0).Item(3)
        TextBox5.Text = ds.Tables("r").Rows(0).Item(4)
        TextBox6.Text = ds.Tables("r").Rows(0).Item(5)
        TextBox7.Text = ds.Tables("r").Rows(0).Item(6)
        TextBox8.Text = ds.Tables("r").Rows(0).Item(7)
        con.Close()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.Hide()
        Form8.Show()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Me.Hide()
        Form1.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pos = 0
        TextBox1.Text = ds.Tables("r").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("r").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("r").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("r").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("r").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("r").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("r").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("r").Rows(pos).Item(7)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If pos = 0 Then
            MsgBox("you are at first record")
        Else
            pos = pos - 1
            TextBox1.Text = ds.Tables("r").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("r").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("r").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("r").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("r").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("r").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("r").Rows(pos).Item(6)
            TextBox8.Text = ds.Tables("r").Rows(pos).Item(7)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If pos = ds.Tables("r").Rows.Count - 1 Then
            MsgBox("you are at last record")
        Else
            pos = pos + 1
            TextBox1.Text = ds.Tables("r").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("r").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("r").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("r").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("r").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("r").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("r").Rows(pos).Item(6)
            TextBox8.Text = ds.Tables("r").Rows(pos).Item(7)

        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        pos = ds.Tables("r").Rows.Count - 1
        TextBox1.Text = ds.Tables("r").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("r").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("r").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("r").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("r").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("r").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("r").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("r").Rows(pos).Item(7)
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Me.Hide()
        Form3.Show()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        Button7.Enabled = False
        Button8.Enabled = False
        Button9.Enabled = True

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        pos = 0
        TextBox1.Text = ds.Tables("r").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("r").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("r").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("r").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("r").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("r").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("r").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("r").Rows(pos).Item(7)
        Button7.Enabled = True
        Button8.Enabled = True
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If pos >= 0 Then
            Dim cb1 As New OleDb.OleDbCommandBuilder(da)
            Dim dsrow As DataRow
            dsrow = ds.Tables("r").NewRow()
            dsrow.Item(0) = TextBox1.Text
            dsrow.Item(1) = TextBox2.Text
            dsrow.Item(2) = TextBox3.Text
            dsrow.Item(3) = TextBox4.Text
            dsrow.Item(4) = TextBox5.Text
            dsrow.Item(5) = TextBox6.Text
            dsrow.Item(6) = TextBox7.Text
            dsrow.Item(7) = TextBox8.Text
            ds.Tables("r").Rows.Add(dsrow)
            da.Update(ds, "r")
            MsgBox("new record added")
        End If
        Button7.Enabled = True
        Button8.Enabled = True
        Button9.Enabled = True
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ds.Tables("r").Rows(pos).Item(0) = TextBox1.Text
        ds.Tables("r").Rows(pos).Item(1) = TextBox2.Text
        ds.Tables("r").Rows(pos).Item(2) = TextBox3.Text
        ds.Tables("r").Rows(pos).Item(3) = TextBox4.Text
        ds.Tables("r").Rows(pos).Item(4) = TextBox5.Text
        ds.Tables("r").Rows(pos).Item(5) = TextBox6.Text
        ds.Tables("r").Rows(pos).Item(6) = TextBox7.Text
        ds.Tables("r").Rows(pos).Item(7) = TextBox8.Text
        con.Open()
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "r")
        MsgBox("data updated")
        con.Close()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If pos >= 0 And pos <= ds.Tables("r").Rows.Count Then
            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
                MsgBox("operation cancelled")
                Exit Sub
            Else
                Dim cb As New OleDb.OleDbCommandBuilder(da)
                ds.Tables("r").Rows(pos).Delete()
                pos = 0
                TextBox1.Text = ds.Tables("r").Rows(pos).Item(0)
                TextBox2.Text = ds.Tables("r").Rows(pos).Item(1)
                TextBox3.Text = ds.Tables("r").Rows(pos).Item(2)
                TextBox4.Text = ds.Tables("r").Rows(pos).Item(3)
                TextBox5.Text = ds.Tables("r").Rows(pos).Item(4)
                TextBox6.Text = ds.Tables("r").Rows(pos).Item(5)
                TextBox7.Text = ds.Tables("r").Rows(pos).Item(6)
                TextBox8.Text = ds.Tables("r").Rows(pos).Item(7)
                da.Update(ds, "r")
            End If
        End If
    End Sub
End Class

 Coding

Public Class Form8
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'R1DataSet1.c' table. You can move, or remove it, as needed.
        Me.CTableAdapter.Fill(Me.R1DataSet1.c)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\r1.mdb"
        con.Open()
        sql = "select * FROM c"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "r")
        'MsgBox("RESULT DETAIL IS NOW OPEN")
     
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "r"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form7.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.CTableAdapter.Fill(Me.R1DataSet1.c)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\r1.mdb"
        con.Open()
        sql = "select * FROM c where qenroll like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.CTableAdapter.Fill(Me.R1DataSet1.c)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\r1.mdb"
        con.Open()
        sql = "select * FROM c where qname like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.CTableAdapter.Fill(Me.R1DataSet1.c)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\r1.mdb"
        con.Open()
        sql = "select * FROM c"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "r")
        'MsgBox("RESULT DETAIL IS NOW OPEN")

        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "r"
    End Sub
End Class

 Coding

Public Class Form9

    Dim con As New OleDb.OleDbConnection

    Dim pos As Integer

    Dim ds As New DataSet

    Dim da As OleDb.OleDbDataAdapter

    Dim sql As String

    Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\c1.mdb"

        con.Open()

        sql = "select * FROM d"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "c")

        ' MsgBox("JOB DETAIL IS NOW OPEN")

        pos = 0

        TextBox1.Text = ds.Tables("c").Rows(0).Item(0)

        TextBox2.Text = ds.Tables("c").Rows(0).Item(1)

        TextBox3.Text = ds.Tables("c").Rows(0).Item(2)

        TextBox4.Text = ds.Tables("c").Rows(0).Item(3)

        TextBox5.Text = ds.Tables("c").Rows(0).Item(4)

        TextBox6.Text = ds.Tables("c").Rows(0).Item(5)

        TextBox7.Text = ds.Tables("c").Rows(0).Item(6)

        con.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        pos = 0

        TextBox1.Text = ds.Tables("c").Rows(0).Item(0)

        TextBox2.Text = ds.Tables("c").Rows(0).Item(1)

        TextBox3.Text = ds.Tables("c").Rows(0).Item(2)

        TextBox4.Text = ds.Tables("c").Rows(0).Item(3)

        TextBox5.Text = ds.Tables("c").Rows(0).Item(4)

        TextBox6.Text = ds.Tables("c").Rows(0).Item(5)

        TextBox7.Text = ds.Tables("c").Rows(0).Item(6)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If pos = 0 Then

            MsgBox("you are at first record")

        Else

            pos = pos - 1

            TextBox1.Text = ds.Tables("c").Rows(pos).Item(0)

            TextBox2.Text = ds.Tables("c").Rows(pos).Item(1)

            TextBox3.Text = ds.Tables("c").Rows(pos).Item(2)

            TextBox4.Text = ds.Tables("c").Rows(pos).Item(3)

            TextBox5.Text = ds.Tables("c").Rows(pos).Item(4)

            TextBox6.Text = ds.Tables("c").Rows(pos).Item(5)

            TextBox7.Text = ds.Tables("c").Rows(pos).Item(6)

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If pos = ds.Tables("c").Rows.Count - 1 Then

            MsgBox("you are at last record")

        Else

            pos = pos + 1

            TextBox1.Text = ds.Tables("c").Rows(pos).Item(0)

            TextBox2.Text = ds.Tables("c").Rows(pos).Item(1)

            TextBox3.Text = ds.Tables("c").Rows(pos).Item(2)

            TextBox4.Text = ds.Tables("c").Rows(pos).Item(3)

            TextBox5.Text = ds.Tables("c").Rows(pos).Item(4)

            TextBox6.Text = ds.Tables("c").Rows(pos).Item(5)

            TextBox7.Text = ds.Tables("c").Rows(pos).Item(6)

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        pos = ds.Tables("c").Rows.Count - 1

        TextBox1.Text = ds.Tables("c").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("c").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("c").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("c").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("c").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("c").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("c").Rows(pos).Item(6)

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Me.Hide()

        Form10.Show()

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Me.Hide()

        Form1.Show()

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Me.Hide()

        Form3.Show()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        Button7.Enabled = False

        Button8.Enabled = False

        Button9.Enabled = True

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        pos = 0

        TextBox1.Text = ds.Tables("c").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("c").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("c").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("c").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("c").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("c").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("c").Rows(pos).Item(6)

        Button7.Enabled = True

        Button8.Enabled = True

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If pos >= 0 Then

            Dim cb1 As New OleDb.OleDbCommandBuilder(da)

            Dim dsrow1 As DataRow

            dsrow1 = ds.Tables("c").NewRow()

            dsrow1.Item(0) = TextBox1.Text

            dsrow1.Item(1) = TextBox2.Text

            dsrow1.Item(2) = TextBox3.Text

            dsrow1.Item(3) = TextBox4.Text

            dsrow1.Item(4) = TextBox5.Text

            dsrow1.Item(5) = TextBox6.Text

            dsrow1.Item(6) = TextBox7.Text

            ds.Tables("c").Rows.Add(dsrow1)

            da.Update(ds, "c")

            MsgBox("new record added")

        End If

        Button7.Enabled = True

        Button8.Enabled = True

        Button9.Enabled = True

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        ds.Tables("c").Rows(pos).Item(0) = TextBox1.Text

        ds.Tables("c").Rows(pos).Item(1) = TextBox2.Text

        ds.Tables("c").Rows(pos).Item(2) = TextBox3.Text

        ds.Tables("c").Rows(pos).Item(3) = TextBox4.Text

        ds.Tables("c").Rows(pos).Item(4) = TextBox5.Text

        ds.Tables("c").Rows(pos).Item(5) = TextBox6.Text

        ds.Tables("c").Rows(pos).Item(6) = TextBox7.Text

        con.Open()

        Dim cb As New OleDb.OleDbCommandBuilder(da)

        da.Update(ds, "c")

        MsgBox("data updated")

        con.Close()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        If pos >= 0 And pos <= ds.Tables("c").Rows.Count Then

            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then

                MsgBox("operation cancelled")

                Exit Sub

            Else

                Dim cb As New OleDb.OleDbCommandBuilder(da)

                ds.Tables("c").Rows(pos).Delete()

                pos = 0

                TextBox1.Text = ds.Tables("c").Rows(pos).Item(0)

                TextBox2.Text = ds.Tables("c").Rows(pos).Item(1)

                TextBox3.Text = ds.Tables("c").Rows(pos).Item(2)

                TextBox4.Text = ds.Tables("c").Rows(pos).Item(3)

                TextBox5.Text = ds.Tables("c").Rows(pos).Item(4)

                TextBox6.Text = ds.Tables("c").Rows(pos).Item(5)

                TextBox7.Text = ds.Tables("c").Rows(pos).Item(6)

                da.Update(ds, "c")

            End If

        End If

    End Sub

End Class

 Coding

Public Class Form10
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'C1DataSet1.d' table. You can move, or remove it, as needed.
        Me.DTableAdapter.Fill(Me.C1DataSet1.d)

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\c1.mdb"
        con.Open()
        sql = "select * FROM d"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "c")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "c"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form9.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.DTableAdapter.Fill(Me.C1DataSet1.d)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\c1.mdb"
        con.Open()
        sql = "select * FROM d where wenroll like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.DTableAdapter.Fill(Me.C1DataSet1.d)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\c1.mdb"
        con.Open()
        sql = "select * FROM d where wname like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.DTableAdapter.Fill(Me.C1DataSet1.d)

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\c1.mdb"
        con.Open()
        sql = "select * FROM d"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "c")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "c"
    End Sub
End Class

 Coding

Public Class Form11

    Dim con As New OleDb.OleDbConnection

    Dim pos As Integer

    Dim ds As New DataSet

    Dim da As OleDb.OleDbDataAdapter

    Dim sql As String

    Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\e1.mdb"

        con.Open()

        sql = "select * FROM e"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "e1")

        'MsgBox("CERTIFICATE DETAIL IS NOW OPEN")

        pos = 0

        TextBox1.Text = ds.Tables("e1").Rows(0).Item(0)

        TextBox2.Text = ds.Tables("e1").Rows(0).Item(1)

        TextBox3.Text = ds.Tables("e1").Rows(0).Item(2)

        TextBox4.Text = ds.Tables("e1").Rows(0).Item(3)

        TextBox5.Text = ds.Tables("e1").Rows(0).Item(4)

        TextBox6.Text = ds.Tables("e1").Rows(0).Item(5)

        TextBox7.Text = ds.Tables("e1").Rows(0).Item(6)

        TextBox8.Text = ds.Tables("e1").Rows(0).Item(7)

        TextBox9.Text = ds.Tables("e1").Rows(0).Item(8)

        con.Close()

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Me.Hide()

        Form12.Show()

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Me.Hide()

        Form1.Show()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        pos = 0

        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)

        TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)

        TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If pos = 0 Then

            MsgBox("you are at first record")

        Else

            pos = pos - 1

            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)

            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)

            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)

            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)

            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)

            TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)

            TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)

            TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)

            TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If pos = ds.Tables("e1").Rows.Count - 1 Then

            MsgBox("you are at last record")

        Else

            pos = pos + 1

            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)

            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)

            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)

            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)

            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)

            TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)

            TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)

            TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)

            TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        pos = ds.Tables("e1").Rows.Count - 1

        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)

        TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)

        TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Me.Hide()

        Form3.Show()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        TextBox9.Clear()

        Button7.Enabled = False

        Button8.Enabled = False

        Button9.Enabled = True

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        pos = 0

        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)

        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)

        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)

        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)

        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)

        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)

        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)

        TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)

        TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)

        Button7.Enabled = True

        Button8.Enabled = True

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If pos >= 0 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)

            Dim dsrow As DataRow

            dsrow = ds.Tables("e1").NewRow()

            dsrow.Item(0) = TextBox1.Text

            dsrow.Item(1) = TextBox2.Text

            dsrow.Item(2) = TextBox3.Text

            dsrow.Item(3) = TextBox4.Text

            dsrow.Item(4) = TextBox5.Text

            dsrow.Item(5) = TextBox6.Text

            dsrow.Item(6) = TextBox7.Text

            dsrow.Item(7) = TextBox8.Text

            dsrow.Item(8) = TextBox9.Text

            ds.Tables("e1").Rows.Add(dsrow)

            da.Update(ds, "e1")

            MsgBox("new record added")

       

        End If

        Button7.Enabled = True

        Button8.Enabled = True

        Button9.Enabled = True

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        ds.Tables("e1").Rows(pos).Item(0) = TextBox1.Text

        ds.Tables("e1").Rows(pos).Item(1) = TextBox2.Text

        ds.Tables("e1").Rows(pos).Item(2) = TextBox3.Text

        ds.Tables("e1").Rows(pos).Item(3) = TextBox4.Text

        ds.Tables("e1").Rows(pos).Item(4) = TextBox5.Text

        ds.Tables("e1").Rows(pos).Item(5) = TextBox6.Text

        ds.Tables("e1").Rows(pos).Item(6) = TextBox7.Text

        ds.Tables("e1").Rows(pos).Item(7) = TextBox8.Text

        ds.Tables("e1").Rows(pos).Item(8) = TextBox9.Text

        con.Open()

        Dim cb As New OleDb.OleDbCommandBuilder(da)

        da.Update(ds, "e1")

        MsgBox("data updated")

        con.Close()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        If pos >= 0 And pos <= ds.Tables("e1").Rows.Count Then

            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then

                MsgBox("operation cancelled")

                Exit Sub

            Else

                Dim cb As New OleDb.OleDbCommandBuilder(da)

                ds.Tables("e1").Rows(pos).Delete()

                pos = 0

                TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)

                TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)

                TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)

                TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)

                TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)

                TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)

                TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)

                TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)

                TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)

                da.Update(ds, "e1")

            End If

        End If

    End Sub

End Class

 Coding

Public Class Form12
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form11.Show()
    End Sub

    Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'E1DataSet1.e' table. You can move, or remove it, as needed.
        Me.ETableAdapter.Fill(Me.E1DataSet1.e)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\e1.mdb"
        con.Open()
        sql = "select * FROM e"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "e1")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "e1"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.ETableAdapter.Fill(Me.E1DataSet1.e)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\e1.mdb"
        con.Open()
        sql = "select * FROM e where aenroll like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.ETableAdapter.Fill(Me.E1DataSet1.e)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\e1.mdb"
        con.Open()
        sql = "select * FROM e where aname like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.ETableAdapter.Fill(Me.E1DataSet1.e)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\e1.mdb"
        con.Open()
        sql = "select * FROM e"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "e1")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "e1"
    End Sub
End Class

 Coding

Public Class Form13
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Hide()
        Form14.Show()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Hide()
        Form1.Show()
    End Sub

    Private Sub Form13_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.connectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;data Source = C:\h1.mdb"
        con.Open()
        sql = "select * FROM f"
        da = New OleDb.OleDbdataAdapter(sql, con)
        da.Fill(ds, "h1")
        'MsgBox("hostel detail is now open")
        pos = 0
        TextBox1.Text = ds.Tables("h1").Rows(0).Item(0)
        TextBox2.Text = ds.Tables("h1").Rows(0).Item(1)
        TextBox3.Text = ds.Tables("h1").Rows(0).Item(2)
        TextBox4.Text = ds.Tables("h1").Rows(0).Item(3)
        TextBox5.Text = ds.Tables("h1").Rows(0).Item(4)
        TextBox6.Text = ds.Tables("h1").Rows(0).Item(5)
        TextBox7.Text = ds.Tables("h1").Rows(0).Item(6)

        con.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pos = 0
        TextBox1.Text = ds.Tables("h1").Rows(0).Item(0)
        TextBox2.Text = ds.Tables("h1").Rows(0).Item(1)
        TextBox3.Text = ds.Tables("h1").Rows(0).Item(2)
        TextBox4.Text = ds.Tables("h1").Rows(0).Item(3)
        TextBox5.Text = ds.Tables("h1").Rows(0).Item(4)
        TextBox6.Text = ds.Tables("h1").Rows(0).Item(5)
        TextBox7.Text = ds.Tables("h1").Rows(0).Item(6)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If pos = 0 Then
            MsgBox("you are at first record")
        Else
            pos = pos - 1
            TextBox1.Text = ds.Tables("h1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("h1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("h1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("h1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("h1").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("h1").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("h1").Rows(pos).Item(6)

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If pos = ds.Tables("h1").Rows.Count - 1 Then
            MsgBox("you are at last record")
        Else
            pos = pos + 1
            TextBox1.Text = ds.Tables("h1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("h1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("h1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("h1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("h1").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("h1").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("h1").Rows(pos).Item(6)

        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        pos = ds.Tables("h1").Rows.Count - 1
        TextBox1.Text = ds.Tables("h1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("h1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("h1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("h1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("h1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("h1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("h1").Rows(pos).Item(6)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Hide()
        Form3.Show()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        Button10.Enabled = False
        Button11.Enabled = True
        Button12.Enabled = False
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        pos = 0
        TextBox1.Text = ds.Tables("h1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("h1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("h1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("h1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("h1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("h1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("h1").Rows(pos).Item(6)
        Button10.Enabled = True
        Button12.Enabled = True
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If pos >= 0 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsrow As DataRow
            dsrow = ds.Tables("h1").NewRow()
            dsrow.Item(0) = TextBox1.Text
            dsrow.Item(1) = TextBox2.Text
            dsrow.Item(2) = TextBox3.Text
            dsrow.Item(3) = TextBox4.Text
            dsrow.Item(4) = TextBox5.Text
            dsrow.Item(5) = TextBox6.Text
            dsrow.Item(6) = TextBox7.Text
         
            ds.Tables("h1").Rows.Add(dsrow)
            da.Update(ds, "h1")
            MsgBox("new record added")
        End If
        Button10.Enabled = True
        Button11.Enabled = True
        Button12.Enabled = True
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        ds.Tables("h1").Rows(pos).Item(0) = TextBox1.Text
        ds.Tables("h1").Rows(pos).Item(1) = TextBox2.Text
        ds.Tables("h1").Rows(pos).Item(2) = TextBox3.Text
        ds.Tables("h1").Rows(pos).Item(3) = TextBox4.Text
        ds.Tables("h1").Rows(pos).Item(4) = TextBox5.Text
        ds.Tables("h1").Rows(pos).Item(5) = TextBox6.Text
        ds.Tables("h1").Rows(pos).Item(6) = TextBox7.Text

        con.Open()
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "h1")
        MsgBox("data updated")
        con.Close()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If pos >= 0 And pos <= ds.Tables("h1").Rows.Count Then
            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
                MsgBox("operation cancelled")
                Exit Sub
            Else
                Dim cb As New OleDb.OleDbCommandBuilder(da)
                ds.Tables("h1").Rows(pos).Delete()
                pos = 0
                TextBox1.Text = ds.Tables("h1").Rows(pos).Item(0)
                TextBox2.Text = ds.Tables("h1").Rows(pos).Item(1)
                TextBox3.Text = ds.Tables("h1").Rows(pos).Item(2)
                TextBox4.Text = ds.Tables("h1").Rows(pos).Item(3)
                TextBox5.Text = ds.Tables("h1").Rows(pos).Item(4)
                TextBox6.Text = ds.Tables("h1").Rows(pos).Item(5)
                TextBox7.Text = ds.Tables("h1").Rows(pos).Item(6)
                da.Update(ds, "h1")
            End If
        End If
    End Sub
End Class

 Coding

Public Class Form14
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form14_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'H1DataSet1.f' table. You can move, or remove it, as needed.
        Me.FTableAdapter.Fill(Me.H1DataSet1.f)
        con.connectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;data Source = C:\h1.mdb"
        con.Open()
        Sql = "select * FROM f"
        da = New OleDb.OleDbDataAdapter(Sql, con)
        da.Fill(ds, "h1")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "h1"
      End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form13.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.FTableAdapter.Fill(Me.H1DataSet1.f)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\h1.mdb"
        con.Open()
        sql = "select * FROM f where renroll like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.FTableAdapter.Fill(Me.H1DataSet1.f)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\h1.mdb"
        con.Open()
        sql = "select * FROM f where rname like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.FTableAdapter.Fill(Me.H1DataSet1.f)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;data Source = C:\h1.mdb"
        con.Open()
        sql = "select * FROM f"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "h1")
        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "h1"
    End Sub
End Class