Visual Basic - LISTBOX

Quiero utilizar el listbox (multiselect) en lugar de un combobox , la consulta asì la hago y la presento en un dbgrid mediante un data pero es una consulta de 1 sola remesa

Data1.RecordSource = "select Remesa,folio,nombre from tabla where Remesa = " & Combo1 & ""

En el combo1 esta la remesa(alfanumerica) y quiero que esta sea un listbox y seleccionar varias remesas y que aparescan en el dbgrid.

saludos y gracias de antemano

Si quieres utilizar el listbox con multiselect , lo primero es :
Poner la propiedad Multiselect a : 1- Simple o 2 - Extended
Luego has de ir componiendo una cadena con los diferentes valores que estan seleccionados.
Por ejemplo :
dim strRemesa as string
dim StrSql as string
for i = 1 to list1.listcount
if list1.selected ( i -1 ) = true then
if strRemesa = " " then
strRemesa = " where Remesa = " & list1.list( i -1 )
else
strRemesa = strRemesa & " OR remesa = " & list1.list ( i - 1)
end if
end if
next

strSql = " select Remesa,folio,nombre from tabla " & strRemesa
Data1.RecordSource = strSql

No funciona, te puedo enviar por correo la prueba ??, gracias de antemano