Gracias MonteZion por tu aportación, por ahi iba la idea pero no me funciono ese código al 100% pues ademas de necesitar autentificacion tenia que configurar otros detalles, ayer encontre la solución, ya lo probe y funciona perfectamente, ahi se las mando esperando que a alguien le sea de utilidad, por cierto el motor de base de datos que estoy usando es SQL Server 2000 y pues por lo menos ahi funciona:
Código:
'Variables publicas a de mi clase
Dim R As CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim mArchivoAExportar As String
'Evento Page load de mi página web o puede ser tambien de una
'aplicacion windows
Page_Load ....
Dim Usuario as string = "Nombre_Usuario"
Dim Contraseña as string = "Contraseña_Usuario"
Dim Servidor as string = "Nombre_Servidor"
Dim BaseDatos as string = "Nombre_Base_Datos"
If Not R Is Nothing Then
Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
Dim crConnInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim crLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo
R.SetDatabaseLogon(Usuario,Contraseña,Servidor,BaseDatos)
For Each crTable In R.Database.Tables
crConnInfo.ServerName = Servidor
crConnInfo.DatabaseName = BaseDatos
crConnInfo.UserID = Usuario
crConnInfo.Password = Contraseña
crLogOnInfo = crTable.LogOnInfo
crLogOnInfo.ConnectionInfo = crConnInfo
crTable.ApplyLogOnInfo(crLogOnInfo)
crTable.LogOnInfo.ConnectionInfo.Password = Contraseña
crTable.Location = BaseDatos & ".dbo." & crTable.Name
Next
visor.ReportSource = R 'Este es el control que muestra el reporte
visor.DataBind()
End if
end sub