dim rs as new adodb.recordset

rs.open "stoklarinbulundugutabloadi", currentproject.connection, adopenkeyset, adlockoptimistic



rS.Find "[tablodakibarkodalani]='" & me.formdakibarkodalani & "'"  ' eğer ki alan string değer ise bunu kullanın



rS.Find "[tablodakibarkodalani]=" & me.formdakibarkodalani ' eğer ki alan integer değer ise bunu kullanın



me.fiyat= rs!fiyat

me.urunadi= rs!urunadi

me.serinoo=rs!serino

me.depo=rs!depo

rs.close

set rs=nothing