глюк с датарепортом в следующем:
нажимю кнопку печать, пишет что инвалид дата сурс, жму ок, повторно жму на печать, все появляется как надо.
что может быть??? вот код

Set p_g_1.DataSource = rs_uch
Set p_g_1.DataSource = rs_st_uch
Set rs_st_uch = New ADODB.Recordset
Call conect
Dim sql As String
sql = "select * from stancii_uchastka where id_y = " & rs_uch("id_y").Value
rs_st_uch.Open sql, cnn, adOpenDynamic, adLockOptimistic

p_g_1.Sections(2).Controls("dat").Caption = rs_uch("date").Value
p_g_1.Sections(2).Controls("time").Caption = rs_uch("time").Value
p_g_1.Sections(2).Controls("pog").Caption = rs_uch("pog").Value
p_g_1.Sections(2).Controls("temp").Caption = rs_uch("temp").Value

p_g_1.Sections("Section1").Controls("xar").DataField = "xar"

p_g_1.Show

p_g_1 - это мой датарепорт
rs - рекордсеты которые везде опубликованы и открыты

точно могу сказать, что неправильно публикуется вот этот рекордсет rs_st_uch, что может быть не так?

спасибо все сам сделал...
нужно было всего лишь переместить Set p_g_1.DataSource = rs_st_uch
после всех
p_g_1.Sections(2).Controls("dat").Caption = rs_uch("date").Value
p_g_1.Sections(2).Controls("time").Caption = rs_uch("time").Value
p_g_1.Sections(2).Controls("pog").Caption = rs_uch("pog").Value
p_g_1.Sections(2).Controls("temp").Caption = rs_uch("temp").Value