Ne znam sta ti tacno ne radi ovde, ali imas jednu "gadnu" gresku u svom kodu.
Code:
Private Const str1 As String = "SELECT * FROM detprodaje WHERE brporudzbe = brporudzbe"
...
quer = Replace(str1, "brporudzbe", ParentKey)
Replace ce ti zameniti sva pojavljivanja trazenog stringa, tako da ce tebi query izgledati ovako (za npr. ParentKey=1)
SELECT * FROM detprodaje WHERE 1 = 1
a ovo je isto sto i SELECT * FROM detprodaje WHERE True, pa ce ti selektovati sve zapise.
Primeti da sam ja koristio <>, na taj nacin si siguran da sa Replace neces promeniti nista u queryu sto ne trebas. Znaci ove dve linije tvog koda odozgo bi trebalo da izgledaju ovako:
Code:
Private Const str1 As String = "SELECT * FROM detprodaje WHERE brporudzbe = <brporudzbe>"
...
quer = Replace(str1, "<brporudzbe>", ParentKey)
Ako ti kod ne radi, napisi sta se desava (kako vidis da ne radi).