sizin uyguladığınız kodda sorun yok. Sanırım find ile veri arama ile ilgili sıkıntı var. Daha önceden verdiğim
If rS.RecordCount <> 0 Then
kodunu aşağıdaki ile değiştirerek deneyiniz.
if rs.eof=false then
If rS.RecordCount <> 0 Then
if rs.eof=false then