'Abfrage ausführen
    Set dbs = codedb
    Set qdfDatenblatt = dbs.QueryDefs("qryprmDatenblaetter")
        'Parameterübergabe
        qdfDatenblatt.Parameters("prmArtikelNr").Value = _
          Me.cboArtikelBez.Column(1)
    Set rstDatenblatt = qdfDatenblatt.OpenRecordset(dbOpenSnapshot, dbReadOnly)
 
    With rstDatenblatt
 
        Me.cboArtikelBezA2.Column (Nz(!ArtikelBezA2, 0)) <---Da ist _
          der fehler
...
..
.