it was mudding the data up so i changed it to
strSource = "SELECT [ContactID], [Contact FName], [Contact LName] FROM tblContact WHERE [ContactID] = " & Nz(ID, 0) & " ORDER BY [Contact LName], [Contact FName];"
ad now it seams to be working ok
strSource = "SELECT [ContactID], [Contact FName], [Contact LName] FROM tblContact WHERE [ContactID] = " & Nz(ID, 0) & " ORDER BY [Contact LName], [Contact FName];"
ad now it seams to be working ok