Unauthorizedaccessexception was unhandled. The line fileopen was the problem. This is a school project. Thank you for your help in advance!

Option Explicit On
Imports Microsoft.VisualBasic.FileSystem
Module Module1
    Structure ConcertTour
        Dim BandName As String
        Dim noofGigs As Integer
        Dim StartDate As Date
    End Structure
    Dim MyTour As ConcertTour

    Public Sub Main()
        Dim choice As Integer
        FileOpen(1, "C:\ConcertsRandom.DAT", OpenMode.Random)
        Do
            Console.WriteLine(" 1 to create. 2 to Enter. 3 to retrieve.")
            Console.Write("choice? ") : choice = Console.ReadLine
            If choice = 1 Then Call CreateDummyRecords()
            If choice = 2 Then Call EnterRecords()
            If choice = 3 Then Call RetrieveRecords()

        Loop Until choice = 4
        FileClose(1)
        Console.ReadLine()


    End Sub
    Sub CreateDummyRecords()
        Dim i As Integer
        For i = 1 To 30
            MyTour.BandName = "********************"
            MyTour.noofGigs = 0
            MyTour.StartDate = #1/1/2016 12:00:00 PM#
            FilePut(1, MyTour, i)
        Next
        Console.WriteLine()
        Console.WriteLine("dummyfiles created...")
    End Sub

    Sub EnterRecords()
        Dim hashcode As Integer
        Do
            Console.Write(" Band name (xxx to end)? ")
            MyTour.BandName = Console.ReadLine
            If MyTour.BandName <> "xxx" Then
                Console.Write(" no of gigs: ") : MyTour.noofGigs = Console.ReadLine
                Console.Write("start date: ") : MyTour.StartDate = Console.ReadLine
                hashcode = Asc(Left(MyTour.BandName, 1)) - 64
                FilePut(1, MyTour, hashcode)
            End If
        Loop Until MyTour.BandName = "xxx"
    End Sub

    Sub RetrieveRecords()
        Dim hashcode As Integer
        Console.Write(" Band name? ")
        MyTour.BandName = Console.ReadLine
        hashcode = Asc(Left(MyTour.BandName, 1)) - 64
        FilePut(1, MyTour, hashcode)
        Call DisplayRecordData(hashcode)
    End Sub

    Sub DisplayRecordData(ByVal thishashcode As Integer)
        Console.Write(" record key " + Str(thishashcode) + " ")
        Console.Write(MyTour.BandName + " ")
        Console.Write(Str(MyTour.noofGigs) + " ")
        Console.WriteLine(MyTour.StartDate)
    End Sub





End Module