十万火急求助！窗体报错~

打开这个窗体，是一个数据透视表，再点击“编辑数据透视表对象”

报错“访问文件错误。网络连接可能已丢失”

哪个大师帮忙看看~感谢非常！(下面代码中的文字考过来变成韩文了，在本机电脑上是中文的，是国家、地名）

代码如下：

Option Compare Database

Private Sub Province_AfterUpdate()

If Me!Province = "��베" Or Me!Province = "儷쉭" Or Me!Province = "쉭坑" Or Me!Province = "갛뿜" Then
Me!Area = "빽땜"
ElseIf Me!Province = "쉭鮫" Or Me!Province = "빤켓" Or Me!Province = "빤굇" Then
Me!Area = "빽櫓"
ElseIf Me!Province = "코촁뮴" Or Me!Province = "굇쑴" Or Me!Province = "붉켓" Or Me!Province = "붉굇" Or Me!Province = "�锦o" Or Me!Province = "��땜" Or Me!Province = "莖쏠" Then
Me!Area = "빽굇"
ElseIf Me!Province = "劤쉰" Or Me!Province = "퀼謳" Or Me!Province = "맵據" Or Me!Province = "�迈o" Or Me!Province = "행베" Then
Me!Area = "鮫굇"
ElseIf Me!Province = "鮫꾜" Or Me!Province = "暾켓" Or Me!Province = "愷뇽" Or Me!Province = "뱍鹵" Or Me!Province = "路헤" Then
Me!Area = "鮫켓"
ElseIf Me!Province = "밤땜" Or Me!Province = "르쉔" Or Me!Province = "밤鮫" Or Me!Province = "베켓" Then
Me!Area = "빽켓"
ElseIf Me!Province = "붚질쉭" Or Me!Province = "섈주" Or Me!Province = "좼퀼" Then
Me!Area = "땜굇"
End If

End Sub

Private Sub Country_AfterUpdate()
Dim ctl As Control

If Me!Country = "櫓벌" Then
Me!Market = "벌코"
Me!Province.RowSource = "갛뿜;굇쑴;路헤;르쉔;맵據;밤땜;밤鮫;뱍鹵;베켓;붉굇;붉켓;붚질쉭;빤굇;빤켓;섈주;쉭坑;쉭鮫;좼퀼;코촁뮴;퀼謳;행베;��땜;�锦o;�迈o;��베;愷뇽;莖쏠;鮫꾜;劤쉰;暾켓;儷쉭;"
Else
Me!Market = "베棍"
Me!Country.RowSource = Me!Country.RowSource & ";" & Me!Country
Me!Province = Me!Country
Me!Province.RowSource = ""
End If

End Sub

Private Sub Market_AfterUpdate()
If Me!Market = "베棍" Then
Area.RowSource = "킹碌;" & "饑碌;" & "켓쳄;" & "굇쳄;" & "렷碌;"
Else
Area.RowSource = "빽땜;" & "빽굇;" & "땜굇;" & "빽켓;" & "鮫켓;" & "鮫굇;" & "빽櫓;"
End If
End Sub

Private Sub FstCust_Click()
On Error GoTo Err_FstCust_Click

    DoCmd.GoToRecord acDataForm, "와빵북谿", acFirst

Exit_FstCust_Click:
    Exit Sub

Err_FstCust_Click:
    MsgBox Err.Description
    Resume Exit_FstCust_Click
   
End Sub
Private Sub PreCust_Click()
On Error GoTo Err_PreCust_Click

    DoCmd.GoToRecord , , acPrevious

Exit_PreCust_Click:
    Exit Sub

Err_PreCust_Click:
    MsgBox Err.Description
    Resume Exit_PreCust_Click
   
End Sub
Private Sub NextCust_Click()
On Error GoTo Err_NextCust_Click

    DoCmd.GoToRecord , , acNext

Exit_NextCust_Click:
    Exit Sub

Err_NextCust_Click:
    MsgBox Err.Description
    Resume Exit_NextCust_Click
   
End Sub
Private Sub LastCust_Click()
On Error GoTo Err_LastCust_Click

    DoCmd.GoToRecord , , acLast

Exit_LastCust_Click:
    Exit Sub

Err_LastCust_Click:
    MsgBox Err.Description
    Resume Exit_LastCust_Click
   
End Sub
Private Sub LookupCust_Click()
On Error GoTo Err_LookupCust_Click

   DoCmd.GoToControl "CustName"
   DoCmd.FindRecord Me![FindCust], acAnywhere, , , , , True

Exit_LookupCust_Click:
    Exit Sub

Err_LookupCust_Click:
    MsgBox Err.Description
    Resume Exit_LookupCust_Click
   
End Sub
Private Sub NewCust_Click()
On Error GoTo Err_NewCust_Click

    DoCmd.GoToRecord , , acNewRec

Exit_NewCust_Click:
    Exit Sub

Err_NewCust_Click:
    MsgBox Err.Description
    Resume Exit_NewCust_Click
   
End Sub

Private Sub Province_GotFocus()
If Me!Country = "櫓벌" Then
Me!Market = "벌코"
Me!Province.RowSource = "갛뿜;굇쑴;路헤;르쉔;맵據;밤땜;밤鮫;뱍鹵;베켓;붉굇;붉켓;붚질쉭;빤굇;빤켓;섈주;쉭坑;쉭鮫;좼퀼;코촁뮴;퀼謳;행베;��땜;�锦o;�迈o;��베;愷뇽;莖쏠;鮫꾜;劤쉰;暾켓;儷쉭;"
Else
Me!Market = "베棍"
Me!Country.RowSource = Me!Country.RowSource & ";" & Me!Country
Me!Province = Me!Country
Me!Province.RowSource = ""
End If
End Sub