При создании и открытии файла вылетает ошибка

.Dispose()

Private Sub mnuFileNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNewItem.Click
        Dim i As Integer
        ' закрываются все открытые до этого времени файлы
        Decl.CloseAllFiles()
        ' открывается основной файл "c:\untitled.dan"
        Decl.Path = Decl.PathUntitled
        Decl.f1 = New FileStream(Decl.Path, FileMode.Create)
        ' и файл-справочник "c:\untitled.spe"
        Decl.PathSpec = Mid(Decl.Path, 1, Len(Decl.Path) - 4) + ".spe"
        Decl.F1_sp = New FileStream(Decl.PathSpec, FileMode.Create)
        ' количество записей в основной таблице базы данных
        ' равно нулю
        Decl.N = 0
        ' инициализация индексного массива Ind, который будет
        ' использоваться для сортировки данных, и массива Del
        ' для пометки удаляемых записей
        For i = 1 To Decl.Nmax
            Decl.Ind(i) = i
            Decl.Del(i) = 0
        Next i
        ' основная форма становится неактивной
        Me.Enabled = False
        ' загрузка формы для ввода записей файла frmInputEdit
        frmInputEdit.Text = "Файл: " + Decl.Path
        frmInputEdit.Show()
        frmInputEdit.ShowNewZap() ' пользовательская процедура
        ' ввода новой записи
    End Sub

Decl.f1.Close()
Decl.f1.Dispose()