Visual Basic.NET - columna en un combobox

Dim conexion As SqlConnection
Dim ds As New DataSet
conexion = New SqlConnection
conexion.ConnectionString = "integrated security=SSPI; server=(local); database=inventario;"
Dim da As New SqlDataAdapter("select * from a", conexion)
da.fill(ds, "al")
DataGrid1.SetDataBinding(ds, "al")

este codigo me permite mostrar la columna o columnas de una tabla
como puedo hacer para mostrar una columna en un combobox

Para mostrar datos en un combobox, despues de cargar tu dataset debes asignar las siguientes propiedades del combo :

- DataSource : DataTable que será la fuente de datos del combo.
- DisplayMember : Nombre de la columna del datatable que se mostrará en el combo.
- ValueMember : Nombre de la columna del datatable que proporciona un valor a los elementos del combo (generalmente un ID)

Asi, tu codigo debería ser :

Dim conexion As SqlConnection
Dim ds As New DataSet
conexion = New SqlConnection
conexion.ConnectionString = "integrated security=SSPI; server=(local); database=inventario;"
Dim da As New SqlDataAdapter("select * from a", conexion)
da.fill(ds, "al")

Me.ComboBox1.DataSource = ds.Tables ("Al")
Me.ComboBox1.DisplayMember = "columnaDescripcion"
Me.ComboBox1.ValueMember = "columnaClave"