Private Sub cmdSearch_Click()
Dim intID As Integer

'Get the student ID and set it to intID
    intID = InputBox("Enter a Student's ID", "Get ID")
'If an error occurs go to HandleError
    On Error GoTo HandleError
'Refresh the database and move to the first record
'find the first match to intID in database
    frmStudents!datStudents.Refresh
    frmStudents!datStudents.Recordset.MoveFirst
    frmStudents!datStudents.Recordset.FindFirst "StuID = " & intID
'If no match found then display error message and clear all
'text box fields
    If frmStudents!datStudents.Recordset.NoMatch Then
        MsgBox "ID not found in database", _
            vbOKOnly, "ID Not Found Error"
        txtInstrID = ""
        txtName = ""
        txtRank = ""
        txtAddress = ""
        txtCity = ""
        txtState = ""
        txtPhone = ""
        txtExperience = ""
        txtZip = ""
    End If

HandleError:
'Get the error title
    strErrTitle = Err & " " & Error$
    Select Case Err
'If error = 3314 then display error message
        Case 13
            MsgBox "You need to enter in numbers only for student's ID",
_
            vbQuestion, strErrTitle

    End Select
'Execute the next statement after On Error above
        Resume Next
End Sub

Dim strID as String

strID = InputBox("Enter a Student's ID", "Get ID")

if len(strID) =0 then
    ' User canceled or didn't input anything.
    Exit Sub
End If

intID = CInt(strID)

The Inputbox is not the best choice for something like this, (You might design
a small form with a textbox and command button for your input).

Then you could check the contents before any error occurs.

If Not IsNumeric(Text1.Text) then
         MsgBox "You need to enter in numbers only for student'sID",
vbExclamation
          text1.setfocus
Else
         ' put code to check for file here

End If