Problemas DataReport

[walfaro]

fiajte que probe y no me funciona.. de esta forma lo hize..
ya llebo un par de semanas con esto y no he podido resolverlo.. clik sobre el boton solo me sale error query y me muestra esto: #" & Format(Text1.Text),


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("DS") 'nombre del comando
listado.CommandType = adCmdText 'el tipo de comando a usar
listado.CommandText = "SELECT * 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..