SoloCodigo

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