una ayuda al imprimir en DataReport

[walfaro]

hola amigos tengo un problema con un datareport en VB6, lo que quiero es que los registros acuales que tengo en un form me los muestre en un dataReport, pero al dar clik al boton imprimir solo me muestra el primer registro que tengo en la tabla de access..


Private Sub Command1_Click()
Dim Listado As ADODB.Command 'Objeto de tipo comando
Dim DataEnvironment As DataEnvironment1 'Nuestro entorno de datos

Screen.MousePointer = vbHourglass

'Iniciamos el entorno de datos.
Set DataEnvironment = New DataEnvironment1

DataEnvironment.DSP.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source= directorio donde se encuentra biblio.mdb"

Set Listado = DataEnvironment1.Commands("DS")

Listado.CommandType = adCmdText

Listado.CommandText = "SELECT cliente FROM Despacho where 'despacho#" & Format(Text1.Text) & "'"

Load DataReport1

Screen.MousePointer = vbDefault
DataReport1.Show vbModal

End Sub