Hi i have modified the code as follows and now works fine...cheers
Dim strIn As String
Dim rst As DAO.Recordset
Dim strSQL As String
Set rst = Me.RecordsetClone
Do Until rst.EOF
strIn = strIn & "'" & rst!ChildHSReferenceNumber & "',"
rst.MoveNext
Loop
If Right(strIn, 1) = ","...