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()
 

        Dim t_enfermedades As OleDbDataAdapter
        Dim dt As DataTable
 
        Using con As New OleDbConnection(cadena)
            orden = "Select id, nombre from Enfermedades"
 
            t_enfermedades = New OleDbDataAdapter(orden, bd)
 
            Try
                dt = New DataTable
 
                'Llenamos el DataTable con la consulta
                t_enfermedades.Fill(dt)
 
                'Cargamos el comboBox
                ComboBox_enfermedades.ValueMember = "id"
                ComboBox_enfermedades.DisplayMember = "nombre"
                ComboBox_enfermedades.DataSource = dt
            Catch ex As Exception
                MessageBox.Show("Se produjo un error : " & ex.Message)
            End Try
 
        End Using