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)

[thorel]

prueba el query con

"SELECT * FROM Despacho where id='" & Format(Text1.Text) & "'

[walfaro]

probe y me sale este mensaje... No Value given for one or more required parameters

[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