Para ello tienes 2 propiedades: Datasource y displayMember
Aca un trozo de codigo
en displaymenber pones el nombre de la columna que mostrará.
Cita: Dim da As New OleDbDataAdapter("select * from marca", Cn)
Dim df As New DataSet
Try
da.Fill(df, "marca")
Me.CboMarca.DataSource = df.Tables("marca").DefaultView
Me.CboMarca.DisplayMember = "Nombre_Marca"
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "error no controlado")
End Try