dim rs as recordset
i=28
set rs=currentdb.openrecordset("select * from caridetay where Id=" & me.Id)
rs.movefirst
do until rs.eof
.Range("d" & i).Value = rs.fields("Aciklama")
.Range("e" & i).Value = rs.fields("Borc")
.Range("f" & i).Value = rs.fields("Alacak)
i=i+1
rs.movenext
loop
rs.close