Ok, I might be askin alot here. But I'm horrible at seeing my own mistakes...

This loop never ends...

Thanks alot if you can help.
Do Until Text2.DataField = "FIELD128"
strName1 = Mid(Text2.Text, 2)

If InStr(1, LCase(strList), LCase(Mid(strName1, 2)),vbTextCompare) > 0 And strName1 <> "" Then

strPort = Mid(strPort, 2)
terrCount = terrCount + 1
Call cmdPrintTerr_Click
End If

Text2.DataField = strField(dfInt + 1)
Loop

And the strField array is set up so that each substring is "FIELD" and the number.

i.e. strField(1) = "FIELD1" and strField(120) = "FIELD120"


Thanks again.