Здравствуйте форумчане, такой вопрос. Имеется форма, на ней listbox. на нажатию на кнопку, открывается другая форма с подчиненной внутри (табличный вид). по нажатию на строку значения полей присваиваются переменным. Эти переменный я хочу вывести в связанный текст в listbox. в самой первой форме.
Вот код, он не работает (по крайней мере в листбоксе ничего не отображается).

Public Sub Listbox1rowsourse()

srt As String
str1 As String
str2 As String
str3 As String
str4 As String
srt5 As String

sR_NAKL As String
sR_NSEK As String
sSUM_V As String
sDAT_R As String
sR_KLI As String

sR_NAKL = Forms("ФормРасх").[ПодчФорма]!NAKL
sDAT_R = Forms("ФормРасх").[ПодчФорма]!DAT_R
sR_KLI = Forms("ФормРасх").[ПодчФорма]!NA_KLI
sSUM_V = Forms("ФормРасх").[ПодчФорма]!SUM_V
sR_NSEK = Forms("ФормРасх").[ПодчФорма]!fNSEK

Forms("ФормРасх").Podbor = False



str = ""

str1 = "'Расход №'+convert(varchar, sR_NAKL)"
str2 = "'от '+convert(varchar, sDAT_R,104) "
str3 = "'на сумму' +rtrim(convert(varchar,isnull(sSUM_V,0)))+ "
str4 = "'номер секции '+(convert(varchar, sR_NSEK)) "
str5 = "'Клиент:' +(convert(varchar, sR_KLI)) "

str = str1 + str2 + srt3 + str4 + str5


Listbox1.RowSource = str

Me.Refresh

End Sub

http://www.sql.ru/forum/1120609/vyvesti-v-listbox-stroku