bra che sia sbagliata la query per via che mancano gli apici sulle variabili testo prova cosi:

criterio = "SELECT * FROM magazzino WHERE codice = "
criterio = " & "'" TxtCodice.Text & "'"

ciao.