While dr.Read
  If Not dr.IsDBNull(dr.GetOrdinal("PD_NUM")) Then
    Artikelnummer = CStr(dr("PD_NUM"))
  Else
    Artikelnummer = Nothing
  End If
 
  If Not dr.IsDBNull(dr.GetOrdinal("M_Bestelltext")) Then
    Artikelbezeichnung = CStr(dr("M_Bestelltext"))
  Else
    Artikelbezeichnung = Nothing
  End If
 
  If Not dr.IsDBNull(dr.GetOrdinal("M_ZNAME_PLINE")) Then
    dwg_ok = CStr(dr("M_ZNAME_PLINE"))
  Else
    dwg_ok = Nothing
  End If
 
  If Not dr.IsDBNull(dr.GetOrdinal("M_ZEICHNUNGSNAME")) Then
    pdf_ok = CStr(dr("M_ZEICHNUNGSNAME"))
  Else
    pdf_ok = Nothing
  End If
End While
 
'  Artikelnummer 
' ****************************************************************
gr.DrawString("Borm / Artikelstamm / Artikel - Nr.:", MyFont10, Brushes.Black, _
  acXPos, acYPos + 70)
If Len(Artikelnummer) < 1 Then
  gr.DrawString("Kein Borm - Artikel vorhanden!", MyFont10, Brushes.Black, _
    acXPos + 100, acYPos + 70)
  gr.DrawImage(no, acXPos + 90, acYPos + 70)
Else
  gr.DrawString(Artikelnummer, MyFont10, Brushes.Black, acXPos + 100, acYPos + _
    70)
  gr.DrawImage(ok, acXPos + 90, acYPos + 70)
End If
 
'...
'...

mfg.

Dirk