Salve a tutti,
qualcuno mi sa dire cosa sbaglio nell'associare il recordset al report?:
codice:
 '***************************************************************************

        Dim db As New ADODB.Connection()
        Dim db_file As String
        db_file = VB6.GetPath
        If VB.Right(db_file, 1) <> "\" Then db_file = db_file & "\"
        db_file = db_file & "Agcart.pcc"
        db.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file & ";")
        '****************************************************************************
        rs = New ADODB.Recordset()
        rsFornitori = New ADODB.Recordset()
        'Scelta di stampa
        If cboFornitore1.Text = vbNullString Then
            If rs.State = 1 Then
                rs.Close()
            End If
            rs.Open("Select * from Clienti", db, ADODB.CommandTypeEnum.adCmdTable, ADODB.LockTypeEnum.adLockOptimistic)

        Else
            If rsFornitori.State = 1 Then
                rsFornitori.Close()
            End If

            rsFornitori.Open("Select id_Fornitori from Fornitori where Nome_Fornitore='" & Apice((cboFornitore1.Text)) & "'", db_file, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
            If rs.State = 1 Then
                rs.Close()
            End If
            rs.Open("Select * from Clienti where (fornitore1=" & rsFornitori.Fields("Id_fornitori").Value & ") or (fornitore2=" & rsFornitori.Fields("Id_fornitori").Value & ") or (fornitore3=" & rsFornitori.Fields("Id_fornitori").Value & ")", db, ADODB.CommandTypeEnum.adCmdTable, ADODB.LockTypeEnum.adLockOptimistic)
        End If
        ' Connette il Recordset al DataReport?.
        RptClienti.SetDataSource(rs)
        Frame1.Visible = False
        Frame2.Visible = False
        Frame3.Visible = False
        btnCloseReport.Visible = True
        Dim rpt = New ReportDocument()
        rpt.Load("C:\Documents and Settings\Lorenzo\Desktop\rifacimento\Agent2003.NET\rptclienti.rpt")
        crvClienti.ReportSource = rpt

        crvClienti.DisplayGroupTree = False
        crvClienti.Visible = True
        btnCloseReport.Visible = TrueRptClienti.SetDataSource(rs)RptClienti.SetDataSource(rs)
mi da errore qui:RptClienti.SetDataSource(rs) e il tipo di errore è il seguente:"Riferimento ad un oggetto non impostato su un'istanza di oggetto"
Qualcuno mi può dare una mano?
Grazie