Y esto que es?
Código:
Listado.CommandText = "SELECT cliente FROM Despacho where 'despacho#" & Format(Text1.Text) & "'"
where 'despacho#" & Format(Text1.Text) & "'
Prueba asi
Código:
Listado.CommandText = "SELECT cliente FROM Despacho WHERE despacho=" & Format(Text1.Text) & ""
y para que utilizas la funcion format????
si vas a utilizarla haslo asi
Format(Text1, "###00.00")