senti ma se vuoi che la riga arancione

Data1.Recordset.Index = "Nome" sia uguale al testo contenuto nella casella di tseto chiamato nome devi scirvere

Data1.Recordset.Index = nome.text
prova così