LLenar combobox con un dataset

[chcma]

Dim cadena As String = "SELECT * FROM usuarios ORDER BY nombre"
Dim adapter As New OdbcDataAdapter(cadena, cn)
Dim DSUsuarios As New DataSet()
Dim DR as DataRow

adapter.Fill(DSUsuarios, "usuarios")
For Each DR in DSUsuarios("Usuarios").Rows
Combo.Add.Item(DR("NombreDelCampo"))
Next


Hay un POST EXACTAMENTE IGUAL al tuyo.