Need to select particular value from table and display message

Hi friends,

I have this piece of code, it is showing me the message but it is not showing me the message according to the strategy_id and the corresponding message to strategy_id

Set d = CurrentDb()
      Set r = d.OpenRecordset("Select * from Strategy_table")
      Set Strtgy_ID = r.Fields("Strategy_ID")
      Set Msg = r.Fields("Message")
      If InStr(1, Audit, "B3000:,", vbTextCompare) Or InStr(1, Audit, "B3001:", vbTextCompare) Or InStr(1, Audit, "B3002:", vbTextCompare) Or InStr(1, Audit, "B3004:", vbTextCompare) Or InStr(1, Audit, "B3006:", vbTextCompare) Or InStr(1, Audit, "B3008:", vbTextCompare) Or InStr(1, Audit, "B3010:", vbTextCompare) Or InStr(1, Audit, "B3012:", vbTextCompare) Or InStr(1, Audit, "B3014:", vbTextCompare) Or InStr(1, Audit, "B3016:", vbTextCompare) Or InStr(1, Audit, "B3018:", vbTextCompare) Or InStr(1, Audit, "B3010:", vbTextCompare) Or InStr(1, Audit, "B3030:,", vbTextCompare) _
      And InStr(2, " & Strategy & ", "Strtgy_ID", vbDatabaseCompare) Then
      If r.RecordCount > 0 Then
      r.MoveNext
      r.Edit
      
      ScriptingText(3) = Mid(Msg, 1, 77) ' Break string into 77 characters
      ScriptingText(4) = " " & Mid(Msg, 78, 154) ' print rest of the characters from message to next line
r. close
set r = nothing

Please guide me, I am not able to print corresponding message comparing strategy id from the table.

eg of strategy_table:
Strategy_ID Message
1R1 ABCGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1S2 DKILPWLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL

and so on.