No me referia a que le pases de lleno todo el datasource al listbox xq lo chancaría.
Código vb:
Ver original'...
MyCommand.Fill(DS, "ord")
If DS.Tables("ord").Rows.Count > 0 Then
ListBox2.Items.add(DS.Tables("ord").Rows(0).Item(0).ToString())
Else
MessageBox.Show("No se encontro ningun registro con los datos proporcionados","Mensaje")
End If
De esa manera. Saludos!

.