Dim Filter As String
Filter = BasicFileName 'Blockname aus einem Verzeichnis z.B.: STF_SW_150
'Die Routine soll prüfen, ob es STF_SW_150 auch als Artikel in unserer 
' Datenbank gibt.
Const CONNSTR As String = "Password= ........"
Dim ArtPrüfung As String = "SELECT count(*) FROM PROD_DEFINITION WHERE" & _
  "PROD_DEFINITION.PD_NUM LIKE '" & Filter & "'"
Dim conn As New SqlConnection(CONNSTR)
Dim cmd As New SqlCommand(ArtPrüfung, conn)
Dim dr As SqlDataReader
conn.Open()
dr = cmd.ExecuteReader()
 
If dr.HasRows = False Then
gr.DrawString("Borm / Artikelstamm / Artikel - Nr.: = ", MyFont10, _
  Brushes.Black, acXPos, acYPos + 70)
gr.DrawString("Kein Borm - Artikel vorhanden!", MyFont10, Brushes.Black, acXPos _
+ 100, acYPos + 70)
gr.DrawImage(no, acXPos + 90, acYPos + 70)
'Bis hierher ist alles ok!!!
Else
'Wenn ja, sollen nun weitere Werte übernommen werden und hier hab ich nun mein 
' Problem.
'Zu dem Artikel PD_NUM, sollen M_Bestelltext, M_ZEICHNUNGSNAME, M_ZNAME_PLINE 
' gelesen werden.
'Wen ich hier wieder diese Abfrage einbaue, bekomme ich natürlich wieder die 
' Fehlermeldung Nullwert.
'Wie kann ich dieses zusammenfassen?
 
SQL = "SELECT PROD_DEFINITION.PD_NUM, PROD_DEFINITION.M_Bestelltext," & _
  "PROD_DEFINITION.M_ZNAME_PLINE, PROD_DEFINITION.M_ZEICHNUNGSNAME FROM" & _
  "PROD_DEFINITION WHERE PROD_DEFINITION.PD_NUM LIKE '" & Filter & "'"
 
Dim Artikelnummer As String = (dr("PD_NUM").ToString())
Dim Artikelbezeichnung As String = (dr("M_Bestelltext").ToString())
Dim dwg_ok As String = (dr("M_ZNAME_PLINE").ToString())
Dim pdf_ok As String = (dr("M_ZEICHNUNGSNAME").ToString())

mfg.

Dirk