字符串在MSAccess中的VBA代码中的For Each循环中异常执行

Okay so I started with a question and have made a lot of changes to the code based on suggestions from this site and others so I figured I should create a new question. and have made