> Hello, I see this message has been exposed a time ago, but this has a
> variance I'm using the command ADDADOCommand and unboundfields, please
take
> a look and help me if you can.

> I have a conection to an SQL Server 2000 Database created on my VB6
> Dataenvironment.

>     Set cnn1 = DataEnvironment1.conexion1
>     cnn1.Open

>     Dim w_sql As String

>     Set datcmd1 = New ADODB.Command
>     Set datcmd1.ActiveConnection = cnn1

>     Dim Report As New CrVentas

>     w_sql = "select field1, field2 from mytable "

>     datcmd1.CommandText = w_sql
>     datcmd1.CommandType = adCmdText

>     Screen.MousePointer = vbHourglass

> * The next line is where te error occurs
>    Report.Database.AddADOCommand cnn1, datcmd1

>     With Report
>         .UnboundString1.SetUnboundFieldSource "{ado.field1}"
>         .UnboundString2.SetUnboundFieldSource "{ado.field2}"
>     End With

>     CrystalReport.CRViewer1.ReportSource = Report
>     CrystalReport.CRViewer1.ViewReport
>     Screen.MousePointer = vbDefault
>     CrystalReport.Show vbModal

> --
> ______________________________
> Marcelo Trinidad
> Telefuturo C{*filter*}4
> Asuncin - Paraguay

> Tel. (21) 618-4139

> --
> ______________________________
> Marcelo Trinidad
> Telefuturo C{*filter*}4
> Asuncin - Paraguay

> Tel. (21) 618-4139

> --
> ______________________________
> Marcelo Trinidad
> Telefuturo C{*filter*}4
> Asuncin - Paraguay

> Tel. (21) 618-4139