What is this line?

rsVehicle.Fields("Companies Registerd To") = txtCompany dset (rsVehicle).

? comes up as an incorrect command ?