Для списка источником данных должна бытьХП.(Access2002 , SQLServer2000) Подскажите пожалуйста как это сделать:
Dim rst As New ADODB.Recordset, cmd As New ADODB.Command
With cmd
.ActiveConnection = CurrentProject.Connection
cmd.Parameters.Append cmd.CreateParameter("@kprof1", adWChar, adParamInput, 50, IIf(ktprff1() = "", Null, ktprff1()))
cmd.Parameters.Append cmd.CreateParameter("@kprof2", adWChar, adParamInput, 50, IIf(ktprff1() = "", Null, ktprff1()))
cmd.Parameters.Append cmd.CreateParameter("@prof1", adWChar, adParamInput, 50, IIf(prff1() = "", Null, prff1()))
cmd.Parameters.Append cmd.CreateParameter("@prof2", adWChar, adParamInput, 50, IIf(prff2() = "", Null, prff2()))
cmd.Parameters.Append cmd.CreateParameter("@sfera", adInteger, adParamInput, , IIf(sfr1() = 0, Null, sfr1()))
.CommandText = "compSearch"
.CommandType = adCmdStoredProc

End With
Set rst = cmd.Execute
Me.Список2.Rowsource = ??????