Im retarted... problem all fixed.
I changed the Data3.Recordset.FindNext
in Data3.Recordset.FindNext "vid LIKE '*" & Text8.Text & "*'"
to
Data3.Recordset.FindFirst and it works fine now. Since it was the 1st record FindNext was skipping right over it.