Ошибка при открытии файла

[AHTOXA]

в 97 excel'е наглухо виснут винды в след. функции:

Public Function LoadConfig() As ConnectionInfo
On Error GoTo errors
Dim con_info As ConnectionInfo
Dim path As String
path = Application.path & "\" & CfgFileName
Open path For Random As #1
Get #1, 1, con_info
GoTo ends
errors:
MsgBox Err.Description
Resume ends
ends:
If con_info.Provider = "" Then
con_info.Provider = "sqloledb"
End If
If con_info.NetworkLib = "" Then
con_info.NetworkLib = "dbmssocn"
End If
If con_info.Timeout <= 0 Then
con_info.Timeout = 25
End If
If con_info.CommandTimeout <= 0 Then
con_info.CommandTimeout = 180
End If
If con_info.TimeInterval < 1 Then
con_info.TimeInterval = 1
End If
LoadConfig = con_info
Close #1
End Function

на открытии файла. ConnectionInfo - это Type.