vb .net llenar Combobox con base de datos Access

[01munrra]

saludos!, que estoy haciendo mal en este codigo:

Código vb.net:

orden = "Select id, nombre from Enfermedades"
        t_enfermedades.CommandText = orden
        registro = t_enfermedades.ExecuteReader
        If registro.HasRows = True Then
            While registro.Read
                ComboBox_enfermedades.Items.Add(registro.GetString(1))
                ComboBox_enfermedades.ValueMember = registro.GetInt32(0)
            End While
        End If
        registro.Close(
 

estoy cargando un combobox con base de datos access y de modo que al seleccionar me muestre el ID del la seleccion del combobox.

Código vb.net:

MsgBox(ComboBox_enfermedades.SelectedValue)
 

que estoy haciendo mal