Public Sub sort2()  'при неоходимости ссылаюсь на нее 
Dim sel1 asString, rs1 asString
sel1 = " select * "
If Me.sprav = "Стоим.прод." Then  'формирую данные формы и выпад. списка 
    sel1 = "select id_prod "
    rs1 = " from Prod group by id_prod order by id_prod"
    Me.s_prod.Visible = True
    Me.s_shop.Visible = False
    Me.s_post.Visible = False
    Me.s_prod1.Visible = False
    Me.s_prod.Form.RecordSource = "select * from Prod order by id_prod"
                                                 'Вывожу форму по созданному запросу 
End If
    Me.sprav1.RowSource = sel1 & rs1  'Вывожу список по созданному запросу 
    Me.sprav1.Requery  'Обновляю список 
End Sub