Option Compare Database
Option Explicit
Private Sub Form_Load()
Dim myWord As String
10 Dim keywordForLoad As String: keywordForLoad = "RESHMI"
20 Open "C:\users\jack\documents\special.txt" For Input As #1
30 On Error GoTo Form_Load_Error
40 Line Input #1, myWord
50 Debug.Print myWord
60 If myWord <> keywordForLoad Then
70 MsgBox "Invalid keyword --Exiting" & vbCrLf _
& "Application.Quit ---would stop Access"
80 Me.Label1.Visible = False
' Application.quit
90 Else
100 Debug.Print "MyWord:" & myWord & " keywordforload: " & keywordForLoad
110 Me.Label1.Visible = True
120 End If
130 Close #1
140 On Error GoTo 0
150 Exit Sub
Form_Load_Error:
160 MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Load, line " & Erl & "."
End Sub