Hi Simon,

I commented that out, but the program still jumps to the end of the
sub.

Then I commented out the line:
On Error GoTo CreateRecordSetErrorHandler

and the line:
Set rstFromQuery = dbsEAIQuote.OpenRecordset(strSQL, dbOpenSnapshot)

returned the error, run time error 13: type mismatch

Dan