Если правильно понял вопрос, то:

Const Buffer As Long = 256
Dim str As String * Buffer
Debug.Print str

Тока оперировать потом надо с помщью Mid$, а не конкатенции (+,&)

Ну тебе в форум по VB и ASP .Net надо.

Я неиспользую и обычного ASP. Просто подумал что конструкция System.out.println( buffer.toString() ); это от туда

Все-таки попробуй использовать функцию Mid. В рекомендациях по увеличению быстродействия именно так и рекомендуют:
Создать строку с максимально возможной длинной (как - отдельный вопрос)
В VB Script'е не силен,
но вроде можно l_sString=Space(Кол_воМаксимально_возможных_символов)
В цикле запоминать СохраненаяДлина_Len=СохраненаяДлина_Len+ len( Cstr(l_oRs.Fields("field").value) )
и далее
mid( l_sString,СохраненаяДлина_Len,Len(Cstr(l_oRs.Fields("field").value) ))
Т.е. будем врезать в строку с пробелами, значение поля начиная с последнего символа данных. Должно работаь быстро.
Вроде сумбурно объяснил, попробую сделать на VBA. Пример выложу.

Самому было интресно поэтому создал тестовую процедурку на VB (прийдется передалать тебе на VB-Script, но это не долго)

Открываю рекодсет и гоняю его 1000 раз( для надежности).
Первый раз с функцией Mid с заранее выделнным буйером
Второй обычной конкатенцией
Результат на Пне3 1050Герц/256 Мб/Win2000 SP2
такой в милисекундах
Mid=1081
Конкатенция=121445
Итого Mid быстрее Конкатенции в 112 раз на этом примере

Тебе только надо правильно подобрать буфер. Можно сделать один раз подсчет, увеличить это значени раз в 100, а можно считать динамически.

Public Sub MID_OR_NOT_MID()
Dim str
Dim k
str = Space(10000000)
Dim i
Dim j
Dim rs As New ADODB.Recordset
rs.Open "tbl2ProductName", CurrentProject.Connection, adOpenDynamic, adLockReadOnly

Dim t As Long 'счетчик времени

i = 0
j = 0
t = timeGetTime
For k = 1 To 1000

Do While Not rs.EOF
j = Len(CStr(rs("NameOfProduct_rus").Value))
Mid(str, i + 1, j) = CStr(rs("NameOfProduct_rus").Value)
i = i + j 'запоминаем длину значения

rs.MoveNext
Loop

rs.MoveFirst
i = 0
j = 0
Next k
Debug.Print "Mid - "; timeGetTime - t

i = 0
j = 0
Dim str2
t = timeGetTime
For k = 1 To 1000
Do While Not rs.EOF
str2 = str2 & CStr(rs("NameOfProduct_rus").Value)
rs.MoveNext
Loop

rs.MoveFirst
i = 0
j = 0
Next k
Debug.Print "&&& - "; timeGetTime - t

rs.Close: Set rs = Nothing
End Sub

Блин,
Mid(str, i + 1, j) = CStr(rs("NameOfProduct_rus").Value)
делает ИМЕЕНО конкатенцию
Посмотри в работе

Было Пустая строка
Стало "Что-то...далее пусто"
Стало "Что-тоНОвоеЧто-То...далее пусто"
Стало ""Что-тоНОвоеЧто-ТоЕЩЕЧТО_ТО...далее пусто"

Чем не угодил?

З.Ы.
Да забыл сказать
str = Space(10000000) сжирает около 19 мегов памяти, но быстро и не заметно :-)

>я не знал, что можно mid использовать в обратную сторону.

Mid может быть как и Mid Function так и Mid Statement

А каков результат?

>интересно можно ли такой алгоритм красиво реализовать на васике или не получиться?

Если честно, ну ничего непонял. У меня это бывает :-) Так что подробнее...