Crystal Report - Contraseña para SQL server usando Crystal Reports

Hola a todos, tengo una aplicación en VB .NET que accede a una BD en SQL Server. Mi problema es que al intentar mostrar un Crystal Report me sale una ventanita que me pide una contraseña, la introduzco y se muestra correctamente pero quisiera ahorrarme ese paso. Gracias por adelantado.

Visita esta pagina alo mejor y tambien te sirve elcodigo como a nosotros...

http://www.programacion.com/foros/37/msg/223790/

y para que compiles el codigo en visual basic usa esta pagina....
http://www.carlosag.net/Tools/CodeTranslator/Default.aspx

Buena Suerteeee...

Hola maría, esa es la función en VB.NET que tengo en mi código pero lo unico que hace es que si pones la contraseña del user muestra el crystal reports, pienso por tanto que debo tener alguna línea mal. Si fueras tan amable de copiarme el código del formulario que te funciona te estaría eternamente agradecido. De nuevo gracias por la ayuda.

Bueno bueno, al fin lo he solucionado y dejo aki el codigo para aquellos con el mismo problema.

* El CrystalReportViewer en la propiedad ReportSource no tiene que tener nada.

'Módulos a importar en la clase
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.Windows
Imports CrystalDecisions.Windows.Forms

* Después en el load...

Private Sub Historico_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

With crConnectionInfo
.ServerName = "SERGIO"
.DatabaseName = "femafusa"
.UserID = "femafusa"
.Password = "femafusa"
End With

crTableLogonInfo.ConnectionInfo = crConnectionInfo
crTableLogonInfo.TableName = "personas"
crTableLogonInfos.Add(crTableLogonInfo)
'crTableLogonInfo.TableName = "TABLA2"
'crTableLogonInfos.Add(crTableLogonInfo)
CrystalReportViewer1.LogOnInfo = crTableLogonInfos
crTableLogonInfos.Item(0).ReportName = crReportDocument.Name
CrystalReportViewer1.SelectionFormula = "{personas.DNI} ='" & dni & "'"
CrystalReportViewer1.ReportSource = crReportDocument

' Resto de consulta
' ---> codigoPaciente +" AND {consulta.c_codigo} =" + codigoConsulta

Me.CrystalReportViewer1.Zoom(50)

End Sub

Gracias y suerte!