Ayuda DataReport

[walfaro]

tengo problemas con el data report en Visual Basic 6,
el codigo que utilizo es este..

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:\BDWA.mdb" 'ruta de la bd de access
Set listado = Dataenvironment1.Commands("Tabla_Despacho") '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..
End Sub


el error que me da cuando lo ejecuto es este.... error en query y me marca esto #" & Format(Text1.Text)