arkadaşlar, dao ile kayıt seti alma örneğini kendi işime uyarlamak istedim, bu yönde mantık yürüterek alınan kaydı metin kutularına almak istedim ve hata verdi, acaba nasıl yapmalıyım, yardımcı olur musunuz?

Private Sub faturaNo_DblClick(Cancel As Integer)
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim rs As DAO.Recordset

Set db = CurrentDb
Set qd = db.QueryDefs("SELECT surec.isinAdi, surec.faturaTarihi, surec.faturaNo, surec.tutar, surec.kdvOrani, surec.toplamFiyat, surec.Kimlik, surec.islemTarihi, surec.tevkifatOrani, isinTuru.isinTuru, alimTuru.alimTuru, depo.depo, siniflar.Kimlik, isinTuru.Kimlik, odenekSureci.odenekMiktari, firmalar.vergiNo, firmalar.firmaAdi, siniflar.sinifAdi, surec.kdvTutari, surec.tevkifatTutari, surec.tevkifatliToplamTutar FROM siniflar INNER JOIN (odenekTarihi INNER JOIN (odenekSureci INNER JOIN ((depo INNER JOIN isinTuru ON depo.Kimlik = isinTuru.depoId) INNER JOIN (firmalar INNER JOIN (alimTuru INNER JOIN surec ON alimTuru.Kimlik = surec.alimTuruId) ON firmalar.Kimlik = surec.firmaId) ON isinTuru.Kimlik = surec.isinTuruId) ON odenekSureci.Kimlik = surec.odenekId) ON odenekTarihi.Kimlik = odenekSureci.odenekTarihiId) ON siniflar.Kimlik = odenekSureci.siniflarId WHERE (((surec.faturaNo)=[Formlar]![siniflar]![faturaNo]));")


qd.Parameters(0).Value = [Forms]![siniflar]![faturaNo]
Set rs = qd.OpenRecordset()

'Do Until rs.EOF
rs.Fields ( Me.isinAdi ) burada hata verdi
rs.MoveNext
rs.Fields (Me.faturaTarihi)
rs.MoveNext
rs.Fields (Me.faturaNo)
rs.MoveNext
rs.Fields (Me.tutar)
rs.MoveNext
rs.Fields (Me.acilanKdvOrani)
rs.MoveNext
rs.Fields (Me.toplamFiyat)
rs.MoveNext
rs.Fields (Me.metinKimlik)
rs.MoveNext
rs.Fields (Me.islemTarihi)
rs.MoveNext
rs.Fields (Me.acilanTevkifat)
rs.MoveNext
rs.Fields (Me.acilanIsinTuru)
rs.MoveNext
rs.Fields (Me.isinAdi)
rs.MoveNext
'Loop

rs.Close
qd.Close
db.Close
Set rs = Nothing
Set db = Nothing