Problemas DataReport

[walfaro]

lo hice correr y me si me abre el data report, pero con el primer registro que tengo en la tabla no con el actual que veo en el formulario..

Private Sub Command1_Click()
Dim listado As ADODB.Command 'Objeto de tipo comando
Dim Dataenvironment1 As Dataenvironment1 'Nuestro entorno de datos
Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
Set Dataenvironment1 = New Dataenvironment1
Dataenvironment1.DSP.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= D:\Aplica\Diseño\BDWA.mdb" 'ruta de la bd de access
Set listado = Dataenvironment1.Commands("Command1") 'nombre del comando
listado.CommandType = adCmdText 'el tipo de comando a usar
listado.CommandText = "SELECT cliente FROM Despacho where 'id#" & Format(Text1.Text) & "'"
Load DataReport1 'cargas tu datareport, este el nombre del datareport
Screen.MousePointer = vbDefault
DataReport1.Show vbModal 'muestras tu datareport..

End Sub