I would approach it with DAO and loop through Recordsets of the table that has the field you provided an example of. As you .MoveNext to each recordset you would apply the instr() function for that field name.
By itself and outside of your DAO code, an instr() example might look like.
Code:
Dim intAnswer As Integer
Dim strFind As String
Dim strLiteral As String
'initialize variables
intAnswer = 0
strFind = ""
strLiteral = ""
'retrieve data and set variables
strFind = "COLLEGE Anatomy & Physiology"
strLiteral = "LOUISIANA STATE U-BATON ROUGE Combustion Engineering 2014 Fall Service Prospect " & _
"BATON ROUGE COMM COLLEGE Anatomy & Physiology 1-Semester 2014 Fall Service Qualified"
'validate data
intAnswer = InStr(strLiteral, strFind)
'Insert future code here to update a field within recordset employing intAnswer
'Code to see and test results
If intAnswer = 0 Then
MsgBox "Did not find a match " & vbCrLf & "intAnswer = " & intAnswer
Else 'intAnswer is the first position strFind resides in strLiteral
MsgBox "That course name exists here " & vbCrLf & "intAnswer = " & intAnswer
End If