Ошибка: File already open (VB 6)

Option Explicit
Private Sub MDIForm_Load()
frmДобавление.Hide
frmПросмотр.Hide
frmОбработка.Hide
End Sub
Private Sub mnuFormНовый_файл_Click()
frmДобавление.Width = 6390
frmДобавление.Height = 3840
n = FreeFile
CommonDialog1.Filter = "Текстовый файл|*.txt|Microsoft office Word|*.doc|"
CommonDialog1.FilterIndex = 1
CommonDialog1.FileName = "Новый файл"
CommonDialog1.ShowOpen
v = CommonDialog1.FileName
frmДобавление.Caption = "Новый файл"
frmДобавление.Show
Close #n
Open v For Output As #n
End Sub
Private Sub mnuFormДобавление_Click()
frmДобавление.Width = 6390
frmДобавление.Height = 3840
n = FreeFile
CommonDialog1.Filter = "Текстовый файл|*.txt|Microsoft office Word|*.doc|"
CommonDialog1.FilterIndex = 1
CommonDialog1.FileName = "Новый файл"
CommonDialog1.ShowOpen
v = CommonDialog1.FileName
frmДобавление.Caption = "Добавление - " & v
Close #n
Open v For Append As #n
If v = "" Then frmОбработка.Hide
frmДобавление.Show
End Sub
Private Sub mnuFormПросмотр_Click()
n = FreeFile
CommonDialog1.Filter = "Текстовый файл|*.txt|Microsoft office Word|*.doc|"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
v = CommonDialog1.FileName
frmПросмотр.Caption = "Просмотр - " & v
frmПросмотр.Show
Close #n
Open v For Input As #n
If v = "" Then frmПросмотр.Hide
End Sub
Private Sub mnuFormОбработка_Click()
n = FreeFile
CommonDialog1.Filter = "Текстовый файл|*.txt|Microsoft office Word|*.doc|"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
v = CommonDialog1.FileName
frmОбработка.Caption = "Обработка - " & v
frmОбработка.Show
Close #n
Open v For Input As #n
If v = "" Then frmОбработка.Hide
End Sub
Private Sub mnuFormExit_Click()
End
End Sub
Private Sub mnuWindowCascade_Click()
mnuWindowCascade.Checked = True
mnuWindowVertical.Checked = False
mnuWindowHorisont.Checked = False
frmMdi.Arrange 0
End Sub
Private Sub mnuWindowHorisont_Click()
mnuWindowHorisont.Checked = True
mnuWindowCascade.Checked = False
mnuWindowVertical.Checked = False
frmMdi.Arrange 1
End Sub
Private Sub mnuWindowVertical_Click()
mnuWindowVertical.Checked = True
mnuWindowCascade.Checked = False
mnuWindowHorisont.Checked = False
frmMdi.Arrange 2
End Sub

Option Explicit
Private Sub frmДобавление_load()
txtИмя.SetFocus
End Sub
Private Sub cmdВыход_Click()
frmДобавление.Hide
End Sub
Private Sub cmdЗапись_Click()
Dim имя As String, год As String, пол As String, f As Integer
txtИмя.SetFocus
имя = txtИмя.Text
год = txtГод.Text
пол = txtПол.Text
Write #n, имя, год, пол
txtИмя.Text = ""
txtГод.Text = ""
txtПол.Text = ""
f = MsgBox("Продолжить запись ?", vbQuestion + vbYesNo, "Список")
If f = vbNo Then
  frmДобавление.Hide
  Close #n
  frmПросмотр.cmdПросмотр_Click
  frmОбработка.Command1_Click
Else
  txtИмя.SetFocus
End If
 
End Sub

Option Explicit
Option Compare Text
Public Sub Command1_Click()
Dim t As String, a As String, f As String, h As String, g As String, k As Integer, m As Integer, l As String
Close #n
Open v For Input As #n
Do While Not EOF(n)
    Input #n, t
    Input #n, f
    Input #n, h
    a = Date
    k = Val(Right(a, 4))
    m = Val(f)
    If Left(h, 1) = "м" And Left(t, 1) = "А" Then
     k = k - m
     If k >= 0 Then
      g = g & "Имя: " & t & vbNewLine & "Возраст: " & k & vbNewLine & vbNewLine
     Else
      g = g & "Имя: " & t & vbNewLine & "Еще не родился" & vbNewLine & vbNewLine
     End If
    End If
Loop
Close #n
Text1.Text = g
End Sub
 
 
Private Sub Form_Load()
q = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
q = False
End Sub

Option Explicit
Public Sub cmdПросмотр_Click()
Dim i As Integer, f As String, h As String, b As String, k As String
h = ""
Close #n
Open v For Input As #n
Do While Not EOF(n)
    Input #n, f
    Input #n, b
    Input #n, k
    h = h & "Имя: " & f & vbNewLine & "Год рождения: " & b & vbNewLine & "Пол: " & k & vbNewLine
    h = h & vbNewLine
Loop
Text1.Text = h
Close #n
End Sub
 
Private Sub Form_Load()
p = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
p = False
End Sub

Public v As String
Public n As Integer
Public p As Boolean
Public q As Boolean

n = FreeFile

Close #n