ya lo he solucionado, eran las comillas finales 
lo pego aquí por si le sirve a alguien.
Un saludo.
Dim rcar As RecordSet = db.SQLSelect(“Select * from Aromas where nomaro=’”+TFNombreAroma1.Text+"’")
if rcar<> nil and rcar.RecordCount > 0 Then
TFAroma1tpc.Text = rcar.Field(“recaro”).StringValue
end if