Help - Error Accessing File. Network Connection may have been lost

[eholtman]

I keep getting this error when trying to acces my database Access 2000. After hitting OK VB pops up. Is there something incorrect in my VB. Maybe where it is hightlighted in Red.

Thanks


Option Compare Database

Private Sub Command107_Click()
On Error GoTo Err_Command107_Click

Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Command107_Click:
Exit Sub

Err_Command107_Click:
MsgBox Err.Description
Resume Exit_Command107_Click

End Sub
Private Sub Print_Click()
On Error GoTo Err_Print_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Work Order Database#2"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Print_Click:
Exit Sub

Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click

End Sub

Private Sub ActiveXCtl115_Click()

End Sub

Private Sub Command109_Click()
On Error GoTo Err_Command109_Click


DoCmd.GoToRecord , , acNewRec

Exit_Command109_Click:
Exit Sub

Err_Command109_Click:
MsgBox Err.Description
Resume Exit_Command109_Click

End Sub

Private Sub Engineer_Check_Box_AfterUpdate()

End Sub

Private Sub Save_Click()
On Error GoTo Err_Save_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Save_Click:
Exit Sub

Err_Save_Click:
MsgBox Err.Description
Resume Exit_Save_Click

End Sub
Private Sub Command128_Click()
On Error GoTo Err_Command128_Click


DoCmd.GoToRecord , , acFirst

Exit_Command128_Click:
Exit Sub

Err_Command128_Click:
MsgBox Err.Description
Resume Exit_Command128_Click

End Sub
Private Sub Command129_Click()
On Error GoTo Err_Command129_Click


DoCmd.GoToRecord , , acNext

Exit_Command129_Click:
Exit Sub

Err_Command129_Click:
MsgBox Err.Description
Resume Exit_Command129_Click

End Sub
Private Sub Command130_Click()
On Error GoTo Err_Command130_Click


DoCmd.GoToRecord , , acLast

Exit_Command130_Click:
Exit Sub

Err_Command130_Click:
MsgBox Err.Description
Resume Exit_Command130_Click

End Sub
Private Sub Command131_Click()
On Error GoTo Err_Command131_Click


DoCmd.GoToRecord , , acPrevious

Exit_Command131_Click:
Exit Sub

Err_Command131_Click:
MsgBox Err.Description
Resume Exit_Command131_Click

End Sub
Private Sub Command132_Click()
On Error GoTo Err_Command132_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_Command132_Click:
Exit Sub

Err_Command132_Click:
MsgBox Err.Description
Resume Exit_Command132_Click

End Sub
Private Sub Command133_Click()
On Error GoTo Err_Command133_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Exit_Command133_Click:
Exit Sub

Err_Command133_Click:
MsgBox Err.Description
Resume Exit_Command133_Click

End Sub
Private Sub Command134_Click()
On Error GoTo Err_Command134_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Command134_Click:
Exit Sub

Err_Command134_Click:
MsgBox Err.Description
Resume Exit_Command134_Click

End Sub
Private Sub Command135_Click()
On Error GoTo Err_Command135_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Command135_Click:
Exit Sub

Err_Command135_Click:
MsgBox Err.Description
Resume Exit_Command135_Click

End Sub