Access file to view

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButtonClose.Click
        AdminLoginForm.Show()
        Me.Hide()
    End Sub

    Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontToolStripMenuItem.Click

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ButtonNew.Click
        TblAdmissionBindingSource.AddNew()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click
        TblAdmissionBindingSource.EndEdit()
        TblAdmissionTableAdapter.Update(SchoolProjectDataSet.tblAdmission)
    End Sub

    Private Sub SearchToolStripButton_Click(sender As Object, e As EventArgs) Handles SearchToolStripButton.Click
        Try
            Me.TblAdmissionTableAdapter.Search(Me.SchoolProjectDataSet.tblAdmission, StudentNameToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles ButtonSearch.Click
        TblAdmissionTableAdapter.Search(SchoolProjectDataSet.tblAdmission, AdmissionNoTextBox.Text)
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles ButtonRemove.Click
        TblAdmissionBindingSource.RemoveCurrent()
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles ButtonPreviews.Click
        TblAdmissionBindingSource.MovePrevious()
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
        TblAdmissionBindingSource.MoveNext()
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles ButtonFirst.Click
        TblAdmissionBindingSource.MoveFirst()
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles ButtonLast.Click
        TblAdmissionBindingSource.MoveLast()
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        FindStudentPayment.Show()
    End Sub
End Class