Te dejo un ejemplo usando SqlDataAdapter y DataTable
Código:
Using cn As New SqlConnection(cadena_conexion)
Using cmd As New SqlCommand("Select Id, Region From Regiones", cn)
Using da As New SqlDataAdapter(cmd)
Dim dt As New Datatable("Regiones")
da.Fill(dt)
ComboBox1.DisplayMember = "Region"
ComboBox1.ValueMember = "Id"
End Using
End Using
End Using
Como dice
elsaky para recuperar el código del elemento seleccionado usa
Combobox1.SelectedValue
PD:Obviamente debes reemplazar los parámetros
cadena_conexion, la consulta
Select Id, Region From Regiones sería bueno que la reemplazes por un procedimiento almacenado.
Espero te ayude