Datareader crashes on quotes

Sub find_inhouse_PLU(art_nr)
   cmd.CommandText = "SELECT BEZEICHNUNG,QUALITAET,GROESSE,VK_PREIS,ARTIKEL_NR FROM ARTIKEL WHERE ARTIKEL_NR = " &q& art_nr &q
   dta_rdr.Value = cmd.ExecuteReader
   tmp_name = dta_rdr.GetValue(0)
   tmp_quali = dta_rdr.GetValue(1)
   tmp_preis = dta_rdr.GetValue(2)
   tmp_groesse = dta_rdr.GetValue(3)
   tmp_artnr = dta_rdr.GetValue(4)
   dta_rdr.Close
   fill_F3TBs(tmp_name,tmp_quali,tmp_preis,tmp_groesse,tmp_artnr) 
End Sub

Sub find_inhouse_PLU(art_nr)
....
   dta_rdr.Value = kill_quotes(cmd.ExecuteReader)
....
End Sub

Sub kill_quotes(arr)
   For i = 0 To ArrayLen(arr) 
      arr(i) = StrReplace(arr(i),q,"") 'q is Chr(34)
   Next
   Return arr
End Sub

Sub kill_quotes(arr)
    For i = 0 To ArrayLen(arr) 
        arr(i) = StrReplace(arr(i),q,"") 'q is Chr(34)
    Next
    Return arr
End Sub

Sub kill_quotes
    For i = 0 To ArrayLen(arr) 
        arr(i) = StrReplace(arr(i),q,"") 'q is Chr(34)
    Next
End Sub

name = tmp_name
cmd.CommandText = "SELECT BEZEICHNUNG,QUALITAET,VK_PREIS,GROESSE,ARTIKEL_NR FROM ARTIKEL WHERE Bezeichnung LIKE " &q&"%" & name & "%" &q& "ORDER BY BEZEICHNUNG, QUALITAET"