Private Function xchek(ByVal asInput As Integer)as String
Dim sSQL$
 
sSQL = "SELECT auswahl_11 FROM sta_artikelstamm a,sta_art_klassifizierung b " & _
       "where a.artikel_nr = b.artikel_nr " & _
       "and a.artikel_nr =" & asInput
 
xchek = sSQL
 
End Function