Hola no tiene mucho encontre la solucion a ese problema y al ver tu código parece que solo te falta una linea, jejejejeje, la misma linea que tuvo detenido mi proceso por casi dos dias, en fin ahi te va la sucion:
Solo hace falta agregar la siguiente linea en tu ciclo for:
Código:
For Each crTable In R.Database.Tables
crConnInfo.ServerName = Servidor
crConnInfo.DatabaseName = Base
crConnInfo.UserID = Usuario
crConnInfo.Password = password
crLogOnInfo = crTable.LogOnInfo
crLogOnInfo.ConnectionInfo = crConnInfo
crTable.ApplyLogOnInfo(crLogOnInfo)
'****************************************************
crTable.Location = Base & ".dbo." & crTable.Name ' Solo esta linea
'****************************************************
Next
jeje, de todos modos checa tambien este post ahi esta la solucion completa:
http://forosdelweb.com/showthread.php?t=293599