1 PROJET FOR MARRIAGE BUREAU IN VB.NET

PROJET FOR MARRIAGE BUREAU IN VB.NET



Public Class Form1
    Dim CON As New OleDb.OleDbConnection
    Dim DS As New DataSet
    Dim DA As OleDb.OleDbDataAdapter
    Dim POS As Integer
    Dim CON1 As New OleDb.OleDbConnection
    Dim DS1 As New DataSet
    Dim DA1 As OleDb.OleDbDataAdapter
    Dim POS1 As Integer

 
 

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CON.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\MARRIAGE BUREAU2.MDB"
        CON.Open()
        DA = New OleDb.OleDbDataAdapter("SELECT * FROM PP", CON)
        DA.Fill(DS, "MARRIAGE BUREAU2")
        CON.Close()
        TextBox1.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(0)
        TextBox2.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(1)
        TextBox3.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(2)
        TextBox4.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(3)
        TextBox5.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(4)
        TextBox6.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(5)
        TextBox7.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(6)
        TextBox8.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(7)
        TextBox9.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(8)
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CON1.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\MARRIAGE2.MDB"
        CON1.Open()
        DA1 = New OleDb.OleDbDataAdapter("SELECT * FROM Paa", CON1)
        DA.Fill(DS, "MARRIAGE2")
        CON1.Close()
        TextBox10.Text = DS1.Tables("MARRIAge2").Rows(0).Item(0)
        TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(1)
        TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(2)
        TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(3)
        TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(4)
        TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(5)
        TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(6)
        TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(7)
        TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(8)

    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("MARRIAGE BUREAU2").Rows(POS).Item(0)
        TextBox2.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(1)
        TextBox3.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(2)
        TextBox4.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(3)
        TextBox5.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(4)
        TextBox6.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(5)
        TextBox7.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(6)
        TextBox8.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(7)
        TextBox9.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(8)
    End Sub

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


        End If
    End Sub

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


    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        POS = DS.Tables("MARRIAGE BUREAU2").Rows.Count - 1
        TextBox1.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(0)
        TextBox2.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(1)
        TextBox3.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(2)
        TextBox4.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(3)
        TextBox5.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(4)
        TextBox6.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(5)
        TextBox7.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(6)
        TextBox8.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(7)
        TextBox9.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(8)
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        POS1 = 0
        TextBox10.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(0)
        TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(1)
        TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(2)
        TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(3)
        TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(4)
        TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(5)
        TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(6)
        TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(7)
        TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(8)
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If POS1 = 0 Then
            MsgBox("you  are at first record")
        Else
            POS1 = POS1 - 1
            TextBox10.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(0)
            TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(1)
            TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(2)
            TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(3)
            TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(4)
            TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(5)
            TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(6)
            TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(7)
            TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(8)
        End If
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If POS1 = DS1.Tables("MARRIAGE2").Rows.Count - 1 Then
            MsgBox("you are at last record")
        Else
            POS1 = POS1 + 1
            TextBox10.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(0)
            TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(1)
            TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(2)
            TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(3)
            TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(4)
            TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(5)
            TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(6)
            TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(7)
            TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(8)
        End If
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        POS1 = DS1.Tables("MARRIAGE2").Rows.Count - 1
        TextBox10.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(0)
        TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(1)
        TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(2)
        TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(3)
        TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(4)
        TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(5)
        TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(6)
        TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(7)
        TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(8)
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.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.Tables("MARRIAGE BUREAU2").Rows(POS).Item(0) = TextBox1.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(1) = TextBox2.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(2) = TextBox3.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(3) = TextBox4.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(4) = TextBox5.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(5) = TextBox6.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(6) = TextBox7.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(7) = TextBox8.Text
        DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(8) = TextBox9.Text
        CON.Open()
        Dim cb As New OleDb.OleDbCommandBuilder(DA)
        DA.Update(DS, "MARRIAGE BUREAU2")
        MsgBox("data succesfully  update")
        MsgBox("PLEASE UPDATE ENTRY THEN USE UPDATE")
       con.close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Enabled = False
        Button3.Enabled = True
        Button4.Enabled = False
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If POS >= 0 Then
            Dim cb As New OleDb.OleDbCommandBuilder(DA)
            Dim dsrow As DataRow
            dsrow = DS.Tables("MARRIAGE BUREAU2").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("MARRIAGE BUREAU2").Rows.Add(dsrow)
            DA.Update(DS, "MARRIAGE BUREAU2")
            MsgBox("New record are entered")
            Button2.Enabled = True
            Button3.Enabled = False
            Button4.Enabled = True

        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If POS >= 0 And POS <= DS.Tables("MARRIAGE BUREAU2").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("MARRIAGE BUREAU2").Rows(POS).Delete()
                POS = 0
                TextBox1.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(0)
                TextBox2.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(1)
                TextBox3.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(2)
                TextBox4.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(3)
                TextBox5.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(4)
                TextBox6.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(5)
                TextBox7.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(6)
                TextBox8.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(7)
                TextBox9.Text = DS.Tables("MARRIAGE BUREAU2").Rows(POS).Item(8)
                DA.Update(DS, "MARRIAGE BUREAU2")
            End If
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox10.Clear()
        TextBox11.Clear()
        TextBox12.Clear()
        TextBox13.Clear()
        TextBox14.Clear()
        TextBox15.Clear()
        TextBox16.Clear()
        TextBox17.Clear()
        TextBox18.Clear()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox10.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(0)
        TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(1)
        TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(2)
        TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(3)
        TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(4)
        TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(5)
        TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(6)
        TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(7)
        TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(8)
        CON1.Open()
        Dim cb1 As New OleDb.OleDbCommandBuilder(DA1)
        DA1.Update(DS1, "MARRIAGE2")
        MsgBox("data succesfully  update")
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If POS1 >= 0 Then
            Dim cb1 As New OleDb.OleDbCommandBuilder(DA1)
            Dim dsrow1 As DataRow
            dsrow1 = DS1.Tables("MARRIAGE BUREAU2").NewRow()
            dsrow1.Item(0) = TextBox10.Text
            dsrow1.Item(1) = TextBox11.Text
            dsrow1.Item(2) = TextBox12.Text
            dsrow1.Item(3) = TextBox13.Text
            dsrow1.Item(4) = TextBox14.Text
            dsrow1.Item(5) = TextBox15.Text
            dsrow1.Item(6) = TextBox16.Text
            dsrow1.Item(7) = TextBox17.Text
            dsrow1.Item(8) = TextBox18.Text
            DS1.Tables("MARRIAGE2").Rows.Add(dsrow1)
            DA1.Update(DS1, "MARRIAGE2")
            MsgBox("New record are entered")
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If POS1 >= 0 And POS1 <= DS1.Tables("MARRIAGE2").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 cb1 As New OleDb.OleDbCommandBuilder(DA1)
                DS1.Tables("MARRIAGE BUREAU2").Rows(POS1).Delete()
                POS1 = 0
                TextBox10.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(0)
                TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(1)
                TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(2)
                TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(3)
                TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(4)
                TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(5)
                TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(6)
                TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(7)
                TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(POS1).Item(8)
                DA1.Update(DS1, "MARRIAGE2")
            End If
        End If
    End Sub
    Dim a As String = " "
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        If IsNumeric(TextBox6.Text) = True Then
            a = Int(TextBox6.Text)
        Else
            TextBox6.Text = a
        End If
    End Sub

    Private Sub TextBox15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged
        If IsNumeric(TextBox15.Text) = True Then
            a = Int(TextBox15.Text)
        Else
            TextBox15.Text = a
        End If
    End Sub

 
    Private Sub Form1_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:\MARRIAGE BUREAU2.MDB"
        CON.Open()
        DA = New OleDb.OleDbDataAdapter("SELECT * FROM PP", CON)
        DA.Fill(DS, "MARRIAGE BUREAU2")
        CON.Close()
        TextBox1.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(0)
        TextBox2.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(1)
        TextBox3.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(2)
        TextBox4.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(3)
        TextBox5.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(4)
        TextBox6.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(5)
        TextBox7.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(6)
        TextBox8.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(7)
        TextBox9.Text = DS.Tables("MARRIAGE BUREAU2").Rows(0).Item(8)
        CON1.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\MARRIAGE2.MDB"
        CON1.Open()
        DA1 = New OleDb.OleDbDataAdapter("SELECT * FROM Paa", CON1)
        DA1.Fill(DS1, "MARRIAGE2")
        CON1.Close()
        TextBox10.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(0)
        TextBox11.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(1)
        TextBox12.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(2)
        TextBox13.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(3)
        TextBox14.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(4)
        TextBox15.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(5)
        TextBox16.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(6)
        TextBox17.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(7)
        TextBox18.Text = DS1.Tables("MARRIAGE2").Rows(0).Item(8)

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

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

public Class Form2
    Dim CON As New OleDb.OleDbConnection
    Dim DS As New DataSet
    Dim DA As OleDb.OleDbDataAdapter
    Dim POS As Integer
    Dim CON1 As New OleDb.OleDbConnection
    Dim DS1 As New DataSet
    Dim DA1 As OleDb.OleDbDataAdapter
    Dim POS1 As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DS.Clear()
        CON.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\MARRIAGE BUREAU2.MDB"
        CON.Open()
        ' TextBox1.Text = "select * from pp "
        DA = New OleDb.OleDbDataAdapter(TextBox1.Text, CON)
        DA.Fill(DS, "MARRIAGE BUREAU2")
        MsgBox("DATABASE IS NOW Open")
        CON.Close()
        DataGridView1.DataSource = DS
        DataGridView1.DataMember = "MARRIAGE BUREAU2"
        ' ListBox1.Items = TextBox1.Text

     



    End Sub
END CLASS

Public Class Form3
    Dim CON As New OleDb.OleDbConnection
    Dim DS As New DataSet
    Dim DA As OleDb.OleDbDataAdapter
    Dim POS As Integer
    Dim CON1 As New OleDb.OleDbConnection
    Dim DS1 As New DataSet
    Dim DA1 As OleDb.OleDbDataAdapter
    Dim POS1 As Integer
    Private Sub Form3_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:\MARRIAGE BUREAU2.MDB"
        CON.Open()
        DA = New OleDb.OleDbDataAdapter("SELECT * FROM PP", CON)
        DA.Fill(DS, "MARRIAGE BUREAU2")
        MsgBox("DATABASE IS NOW Open")
        CON.Close()
        DataGridView1.DataSource = DS
        DataGridView1.DataMember = "MARRIAGE BUREAU2"
        CON1.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\MARRIAGE2.MDB"
        CON1.Open()
        DA1 = New OleDb.OleDbDataAdapter("SELECT * FROM Paa", CON1)
        DA1.Fill(DS1, "MARRIAGE2")
        MsgBox("DATABASE IS NOW Open")
        CON1.Close()
     


    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
End Class