Hola Amigo quierO abrir un reporte de hecho en crystal Report 10 con visual basic y me sale error en la conexion :
logon Fieled
details : ADO Error code 0x8004e4d
Source:Microsoft OLE DB Provider for SQL Server
Description:Error de inicio de sesion del usuario 'sa'
SQL state:4200
native Error: 18456
aqui vael codigo que estoy usando
Private Sub Form_Load()
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
On Error GoTo ErrHandler
'Abrir el reporte
Screen.MousePointer = vbHourglass
mflgContinuar = True
Set crReport = crApp.OpenReport(App.Path & "\Report1ee.rpt", 1)
crReport.Database.LogOnServer "p2ssql.dll", "VI-EXPLORACION1", "GeoVin", "sa", "261082"
crReport.DiscardSavedData
' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "fechaIni"
crParamDef.AddCurrentValue (mstrParametro1)
Case "fechaFin"
crParamDef.AddCurrentValue (mlngParametro2)
End Select
Next
crvValorizacion.ReportSource = crReport
crvValorizacion.ViewReport
Screen.MousePointer = vbDefault
' Set crParamDefs = Nothing
' Set crParamDef = Nothing
Exit Sub
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _
vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub
adjunto el codigo , el reportey la imganeque se presenta el error