Thanks pBaldy!
Adding that comma seems to have done the trick. the acctnum are text, fyi.
Do Until RS.EOF
acctnum = RS!portfolio
strCriteria = "[portfolio]='" & acctnum & "'"
DoCmd.OpenReport "Letter Single", , acNormal, strCriteria
RS.MoveNext
Loop
It all...