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