Ciao ho una query che fa l' update del recordset visualizzato nelle caselle di testo ma mi da errore mi dice

'NECESSARIO OGGETTO'

codice:
            qry3 = "UPDATE ProdAnagrafica SET Prod_nome =" & txtNome.Text & ",Prod_tipo" & txtTipo.Text & ",Prod_specie=" & txtSpecie.Text & ",Prod_categoria=" & txtCategoria.Text & ",Prod_descrizione=" & txtDescrizione.Text & ",Prod_acqui=" & txtAcquisto.Text & ",Prod_vendi=" & txtVendi.Text
            rs.Open qry3, CN, adOpenKeyset, adLockOptimistic