Sql = "SELECT dd.cd_a, dd.num, dd.nd, dd.n_contr, d.cd_u, u.nm_u," & _
       " d.rprice , du.price, du.ddate, d.date0, d.datef" & _
  " FROM igoreha.dog_d dd, igoreha.dog_u du, abc.doc d, abc.usr u" & _
" WHERE (    (dd.cd_a = d.cd_a)" & _
        " AND (dd.num = d.num)" & _
        " AND (dd.nd = du.nd)" & _
        " AND (dd.n_contr = du.n_contr)" & _
        " AND (u.cd_u = d.cd_u)" & _
        " AND (du.cd_u IN (72,3126,77,352,1959,369,453,933,944,1026,1094,1121,1195,1303,1588,2288,2607,2739,2858,1780,1628))" & _
        " AND (dd.n_contr=:DD_Contr)" & _
        " AND (dd.nd=:DD_Num)" & _
       " )" & _
" order by dd.n_contr,dd.nd"

OraDatabase.Parameters.Add "DD_Contr", "Contr",  1 
OraDatabase.Parameters("DD_Contr").ServerType =  2 
OraDatabase.Parameters.Add "DD_Num", "Num",  1 
OraDatabase.Parameters("DD_Num").ServerType =  2 


 Contr = Dog.Text
 OraDatabase.Parameters("DD_Contr").Value = Contr
 Num = DrobDog.Text
 OraDatabase.Parameters("DD_Num").Value = Num
   
 Set EmpDynaset = OraDatabase.CreateDynaset(Sql,  0 &)