[VB6] Come si crea un Report di selezione?

[x69asterix]

Originariamente inviato da ciro78
nella procedura form load dovrebbe andare

ok,
ho provato senza risultato, ho fatto quanto segue:
sul form load

Private Sub Form_Load()
Data1.DatabaseName = App.Path & ("\db1.mdb")
    Data1.RecordSource = "Archivio2"
    Text1 = reparto
Data1.RecordSource = "SELECT * FROM Archivio2 WHERE reparto"
End Sub

sul form ho un
MSFlexGrid1
Data1
Text1
Command2
Risultato visualizzo sempre tutti i record.