Dim rsSource, rsDest As DAO.Recordset
    Dim SQLString As String
            SQLString =  "select * from TSV_EXIBISHIONS where client_id = "  & str(ClientId)
            Set rsSource = CurrentDb.OpenRecordset(SQLString)
            
            SQLString =  "TSV_EXIBISHIONS" 
            Set rsDest = CurrentDb.OpenRecordset(SQLString)
            
            While Not rsSource.EOF
                rsDest.AddNew
                rsDest( "client_id" ) = NewId
                rsDest( "exibishion_id" ) = rsSource( "exibishion_id" )
                rsDest.Update
                rsSource.MoveNext
            Wend