Reporte

[lamale85]

Hola tengo una aplicación en la que quiero crear una factura con una plantilla en crystal reports y que el contenido de los campos dependerá del presupuesto seleccionado.

El código es el siguiente:

Código:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

Me.cr.Connect = "Server=localhost;Port=3306;Database=alguna;Uid=root;Pwd=;" 
cr.set_Formulas(0, "NPresupuesto='" & Me.txtcodigo_presupuesto.Text & "'") 

Me.cr.ReportFileName = "D:direccionesInformesPresupuesto.rpt" 
Me.cr.WindowState = 2 
Me.cr.Action = 1 

End Sub

Al ejecutarlo me da el siguiente error en .Action
Excepción de HRESULT: 0x800A5077

Alguien sabe cómo puedo solucionarlo y por qué me da?
Muchas gracias

[phinojosa]

El Hresult es un error muy genérico, lo más probable es que tengas algun error en el reporte, revisa si la consulta que efectuas sea la correcta, además de los parámetros que le pasas sea el adecuado...