tampilin 2 filed di combobox di vb

[SinggahDapur]

gan ane mau nanya tentang combobox di vb..

ane pake vb 2005 dan sql server 2005,



ane mau nampilin id_satuan dan nama satuan gan. .



ane pake coding ini ga bisa gan. .



Sub sort_cmbCabang()

Try

a = ("select(satuan.id_satuan & ' - ' & satuan.nama)as [sat]from satuan;")

While Reader.Read

combobox1.Items.Add(Reader.Item("sat"))

End While

myCon.Close()

combobox1.SelectedIndex = 0

Catch ex As Exception

MsgBox("Error pada sortcb" & vbCrLf & Err.Description)

myCon.Close()

End Try

End Sub





mohon pencerahannya. .