kwneu = sevGrid1.Recordset("KW").Value
  an = sevGrid1.Recordset("ART").Value
 
            Set DB = OpenDatabase(pf)
            Set rs5 = DB.OpenRecordset("Select * from PREIS where (KW =  " & _
              kwneu & "  ) AND (Art= '" & an & "');")
 
    anneu = rs5.Fields(2)